Changeset 15242


Ignore:
Timestamp:
Mar 9, 2012, 7:51:28 PM (8 years ago)
Author:
rme
Message:

r15228 from trunk

Location:
release/1.8/source
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/1.8/source

  • release/1.8/source/cocoa-ide/cocoa-editor.lisp

    r15239 r15242  
    35103510  (execute-in-gui #'(lambda ()
    35113511                      (assume-cocoa-thread)
    3512                       (let ((view (find-or-make-hemlock-view pathname)))
    3513                         (hi::handle-hemlock-event view thunk)))))
     3512                      (handler-case
     3513                          (let ((view (find-or-make-hemlock-view pathname)))
     3514                            (hi::handle-hemlock-event view thunk))
     3515                        (error (c)
     3516                          (alert-window :title "Error in Hemlock command processing"
     3517                                        :message (or (ignore-errors (princ-to-string c))
     3518                                                     "#<error printing error message>")
     3519                                        :default-button "Ok"))))))
    35143520
    35153521(defun hemlock-ext:open-sequence-dialog (&key title sequence action (printer #'prin1))
Note: See TracChangeset for help on using the changeset viewer.