[climacs-cvs] CVS update: climacs/gui.lisp
Robert Strandh
rstrandh at common-lisp.net
Thu Jan 20 06:01:58 UTC 2005
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)))
More information about the Climacs-cvs
mailing list