[climacs-cvs] CVS climacs

[crhodes]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv19330

Modified Files:
	gui.lisp 
Log Message:
Argh.  Now that EXECUTE-FRAME-COMMAND calls REDISPLAY-FRAME-PANES, we 
mustn't clear-modify in REDISPLAY-FRAME-PANES because otherwise we never 
notice that we have to save anything.  Band-aid fix because I need to 
produce binaries this afternoon.


--- /project/climacs/cvsroot/climacs/gui.lisp	2006/03/26 14:17:04	1.206
+++ /project/climacs/cvsroot/climacs/gui.lisp	2006/03/27 14:10:24	1.207
@@ -195,9 +195,7 @@
 					    collect (buffer pane)))))
     (loop for buffer in buffers
 	  do (update-syntax buffer (syntax buffer)))
-    (call-next-method)
-    (loop for buffer in buffers
-	  do (clear-modify buffer))))
+    (call-next-method)))
 
 (defun climacs (&key new-process (process-name "Climacs")
                 (width 900) (height 400))
@@ -312,7 +310,8 @@
 (defmethod execute-frame-command :after ((frame climacs) command)
   (loop for buffer in (buffers frame)
 	do (when (modified-p buffer)
-	     (setf (needs-saving buffer) t))))	
+	     (setf (needs-saving buffer) t)
+             (clear-modify buffer))))
 
 (defmethod find-applicable-command-table ((frame climacs))
   (or