Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv10024
Modified Files: gui.lisp Log Message: Made Climacs more happy about having commands fed to it by other threads.
--- /project/climacs/cvsroot/climacs/gui.lisp 2007/01/14 19:48:18 1.235 +++ /project/climacs/cvsroot/climacs/gui.lisp 2007/02/19 22:06:18 1.236 @@ -300,12 +300,15 @@ (display-drei drei))
(defmethod execute-frame-command :around ((frame climacs) command) - (handling-drei-conditions - (with-undo ((buffers frame)) + (if (eq frame *application-frame*) + (progn + (handling-drei-conditions + (with-undo ((buffers frame)) + (call-next-method))) + (loop for buffer in (buffers frame) + do (when (modified-p buffer) + (clear-modify buffer)))) (call-next-method))) - (loop for buffer in (buffers frame) - do (when (modified-p buffer) - (clear-modify buffer))))
(defmethod execute-frame-command :after ((frame climacs) command) (when (eq frame *application-frame*)