Update of /project/climacs/cvsroot/esa In directory clnet:/tmp/cvs-serv18087 Modified Files: esa.lisp Log Message: implement numeric arguments for keyboard macros --- /project/climacs/cvsroot/esa/esa.lisp 2006/05/04 18:32:38 1.12 +++ /project/climacs/cvsroot/esa/esa.lisp 2006/05/10 08:41:49 1.13 @@ -804,14 +804,15 @@ (define-command (com-call-last-kbd-macro :name t :command-table keyboard-macro-table) - () + ((count 'integer :prompt "How many times?")) "Run the last keyboard macro that was defined. Use C-x ( to start and C-x ) to finish recording a keyboard macro." (setf (remaining-keys *application-frame*) - (recorded-keys *application-frame*)) + (loop repeat count append (recorded-keys *application-frame*))) (setf (executingp *application-frame*) t)) -(set-key 'com-call-last-kbd-macro 'keyboard-macro-table '((#\x :control) #\e)) +(set-key `(com-call-last-kbd-macro ,*numeric-argument-marker*) + 'keyboard-macro-table '((#\x :control) #\e)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;