[climacs-cvs] CVS climacs

[thenriksen]

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*)