diff options
| author | Roland McGrath <roland@gnu.org> | 1991-05-09 21:50:34 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1991-05-09 21:50:34 +0000 |
| commit | fbd81ad3176ea1e701b1bd0dcec4efe763249353 (patch) | |
| tree | d43014b01a2cc445a662f0353e0dc684c2438c31 /lisp/macros.el | |
| parent | 082a12c3e1ef948e767ef5e705f752e4ff22aeda (diff) | |
| download | emacs-fbd81ad3176ea1e701b1bd0dcec4efe763249353.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/macros.el')
| -rw-r--r-- | lisp/macros.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/macros.el b/lisp/macros.el index b318ff8eefb..94d5fabb411 100644 --- a/lisp/macros.el +++ b/lisp/macros.el @@ -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 @@ Such a \"function\" cannot be called from Lisp, but it is a valid editor command 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 @@ use this command, and then save the file." (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 @@ C-l -- redisplay screen and ask again." ((= char ?\C-r) (let (executing-macro defining-kbd-macro) (recursive-edit)))))))))) + +;;;###autoload (define-key ctl-x-map "q" 'kbd-macro-query) |