[climacs-cvs] CVS esa

[crhodes]

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