Changeset 13134


Ignore:
Timestamp:
Oct 30, 2009, 9:53:31 PM (10 years ago)
Author:
gz
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/hemlock/src/macros.lisp

    r12856 r13134  
    348348   these are errors that a normal user could encounter in the course of editing
    349349   such as a search failing or an attempt to delete past the end of the buffer."
    350   (let ((message (and args (apply #'format nil args))))
    351     (abort-current-command message)))
     350  (if (current-view)
     351    (let ((message (and args (apply #'format nil args))))
     352      (abort-current-command message))
     353    (apply #'error args)))
    352354
    353355
Note: See TracChangeset for help on using the changeset viewer.