Changeset 13134

Timestamp:

Oct 30, 2009, 2:53:31 PM (15 years ago)

Author:

gz

Message:

make editor-error just signal the error if called outside editor context

File:

• trunk/source/cocoa-ide/hemlock/src/macros.lisp (modified) (1 diff)

trunk/source/cocoa-ide/hemlock/src/macros.lisp

@@ -348 +348 @@
    these are errors that a normal user could encounter in the course of editing
    such as a search failing or an attempt to delete past the end of the buffer."
-  (let ((message (and args (apply #'format nil args))))
-    (abort-current-command message)))
+  (if (current-view)
+    (let ((message (and args (apply #'format nil args))))
+      (abort-current-command message))
+    (apply #'error args)))