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