Mercurial > emacs
diff lisp/macros.el @ 256:7e4c7ef44243
*** empty log message ***
author | Roland McGrath <roland@gnu.org> |
---|---|
date | Thu, 09 May 1991 21:50:34 +0000 |
parents | 8977ce293397 |
children | 2dd411fe2f72 |
line wrap: on
line diff
--- a/lisp/macros.el Thu May 09 17:10:09 1991 +0000 +++ b/lisp/macros.el Thu May 09 21:50:34 1991 +0000 @@ -18,6 +18,7 @@ ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. +;;;###autoload (defun name-last-kbd-macro (symbol) "Assign a name to the last keyboard macro defined. Argument SYMBOL is the name to define. @@ -32,6 +33,7 @@ symbol)) (fset symbol last-kbd-macro)) +;;;###autoload (defun insert-kbd-macro (macroname &optional keys) "Insert in buffer the definition of kbd macro NAME, as Lisp code. Optional second arg KEYS means also record the keys it is on @@ -61,6 +63,7 @@ (insert ")\n") (setq keys (cdr keys)))))) +;;;###autoload (defun kbd-macro-query (flag) "Query user during kbd macro execution. With prefix argument, enters recursive edit, reading keyboard @@ -100,3 +103,5 @@ ((= char ?\C-r) (let (executing-macro defining-kbd-macro) (recursive-edit)))))))))) + +;;;###autoload (define-key ctl-x-map "q" 'kbd-macro-query)