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)))