[climacs-cvs] CVS update: climacs/gui.lisp climacs/pane.lisp

[Aleksandar Bakic]

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