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

[Robert Strandh]

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

Modified Files:
	gui.lisp 
Log Message:
Fixed bug in keyboard macros.

Date: Wed Jan 19 22:01:57 2005
Author: rstrandh

Index: climacs/gui.lisp
diff -u climacs/gui.lisp:1.87 climacs/gui.lisp:1.88
--- climacs/gui.lisp:1.87	Wed Jan 19 17:22:19 2005
+++ climacs/gui.lisp	Wed Jan 19 22:01:56 2005
@@ -173,10 +173,12 @@
 
 (defun climacs-unread-gesture (gesture stream)
   (cond ((recordingp *application-frame*)
-	 (pop (recorded-keys *application-frame*)))
+	 (pop (recorded-keys *application-frame*))
+	 (unread-gesture gesture :stream stream))
 	((executingp *application-frame*)
-	 (push gesture (remaining-keys *application-frame*))))
-  (unread-gesture gesture :stream stream))
+	 (push gesture (remaining-keys *application-frame*)))
+	(t 
+	 (unread-gesture gesture :stream stream))))
 
 (defun read-numeric-argument (&key (stream *standard-input*))
   (let ((gesture (climacs-read-gesture)))