diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2004-11-06 11:49:55 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2004-11-06 11:49:55 +0000 |
| commit | 4d79b8744fb607beb5ec7b074103970d52711601 (patch) | |
| tree | 690128effdc120221c29bf9de98444986cf2d39d /lisp/macros.el | |
| parent | 16d24ae8cfd08d570201479cb2f3b43ab8d674d4 (diff) | |
| download | emacs-4d79b8744fb607beb5ec7b074103970d52711601.tar.gz | |
(insert-kbd-macro): Do completions based on macros,
rather than all commands.
Diffstat (limited to 'lisp/macros.el')
| -rw-r--r-- | lisp/macros.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/macros.el b/lisp/macros.el index 0de5d223ee0..bb9fda41a45 100644 --- a/lisp/macros.el +++ b/lisp/macros.el @@ -63,7 +63,14 @@ bindings. To save a kbd macro, visit a file of Lisp code such as your `~/.emacs', use this command, and then save the file." - (interactive "CInsert kbd macro (name): \nP") + (interactive (list (intern (completing-read "Insert kbd macro (name): " + obarray + (lambda (elt) + (and (fboundp elt) + (or (stringp (symbol-function elt)) + (vectorp (symbol-function elt))))) + t)) + current-prefix-arg)) (let (definition) (if (string= (symbol-name macroname) "") (progn |