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

Modified Files: gui.lisp pane.lisp Log Message: Bug fix: coalesced two "same" execute-frame-command methods.

Date: Mon Jul 18 00:40:37 2005 Author: abakic

Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.155 climacs/gui.lisp:1.156 --- climacs/gui.lisp:1.155 Sun Jul 17 17:31:38 2005 +++ climacs/gui.lisp Mon Jul 18 00:40:37 2005 @@ -118,11 +118,6 @@ (defun current-window () (car (windows *application-frame*)))

-(defmethod execute-frame-command :around ((frame climacs) command) - (declare (ignore command)) - (with-undo ((buffer (current-window))) - (call-next-method))) - (defmethod redisplay-frame-panes :around ((frame climacs) &rest args) (declare (ignore args)) (let ((buffers (remove-duplicates (mapcar #'buffer (windows frame))))) @@ -266,7 +261,8 @@

(defmethod execute-frame-command :around ((frame climacs) command) (handler-case - (call-next-method) + (with-undo ((buffer (current-window))) + (call-next-method)) (offset-before-beginning () (beep) (display-message "Beginning of buffer")) (offset-after-end ()

Index: climacs/pane.lisp diff -u climacs/pane.lisp:1.27 climacs/pane.lisp:1.28 --- climacs/pane.lisp:1.27 Wed Jun 22 20:35:59 2005 +++ climacs/pane.lisp Mon Jul 18 00:40:37 2005 @@ -93,7 +93,6 @@ :buffer buffer :offset offset :length (length sequence)) (undo-accumulate buffer))))

- (defmethod delete-buffer-range :before ((buffer undo-mixin) offset n) (unless (performing-undo buffer) (push (make-instance 'insert-record