Changeset 6654

Timestamp:

Jun 3, 2007, 2:50:08 AM (17 years ago)

Author:

Gary Byers

Message:

Wrap a CATCH around "buffer operation" execution.

File:

• branches/ide-1.0/ccl/hemlock/src/cocoa-hemlock.lisp (modified) (1 diff)

branches/ide-1.0/ccl/hemlock/src/cocoa-hemlock.lisp

@@ -92 +92 @@
         (setq *last-key-event-typed* (event-queue-node-event e)))
     (if (typep e 'buffer-operation)
-      (funcall (buffer-operation-thunk e)))))
+      (catch 'command-loop-catcher
+        (funcall (buffer-operation-thunk e))))))
 
 (defun listen-editor-input (q)