Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv8462

Modified Files: gui.lisp Log Message: Quick close-paren fix.

Date: Tue Sep 13 21:38:03 2005 Author: dmurray

Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.188 climacs/gui.lisp:1.189 --- climacs/gui.lisp:1.188 Tue Sep 13 21:23:59 2005 +++ climacs/gui.lisp Tue Sep 13 21:38:02 2005 @@ -217,12 +217,12 @@ (princ (if (recordingp *application-frame*) "Def" "") - pane)))))) + pane)))))))

- (defun display-window (frame pane) - "The display function used by the climacs application frame." - (declare (ignore frame)) - (redisplay-pane pane (eq pane (current-window))))) +(defun display-window (frame pane) + "The display function used by the climacs application frame." + (declare (ignore frame)) + (redisplay-pane pane (eq pane (current-window))))

(defmethod handle-repaint :before ((pane extended-pane) region) (declare (ignore region))