diff options
| author | Kim F. Storm <storm@cua.dk> | 2004-11-28 23:57:47 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2004-11-28 23:57:47 +0000 |
| commit | d746c36c7f71c81728fd8bfbfc05fc41e92ef956 (patch) | |
| tree | bdbbd64a72ae73b5aeca96f5ef24353b86e8a5ff /lisp/macros.el | |
| parent | bf3919a0a5bf17884b1883b9e6a4bb1dbdb5315d (diff) | |
| download | emacs-d746c36c7f71c81728fd8bfbfc05fc41e92ef956.tar.gz | |
(insert-kbd-macro): Handle kmacro functions.
Diffstat (limited to 'lisp/macros.el')
| -rw-r--r-- | lisp/macros.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/macros.el b/lisp/macros.el index bb9fda41a45..41024e4e40f 100644 --- a/lisp/macros.el +++ b/lisp/macros.el @@ -63,12 +63,13 @@ 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 (list (intern (completing-read "Insert kbd macro (name): " - obarray + (interactive (list (intern (completing-read "Insert kbd macro (name): " + obarray (lambda (elt) (and (fboundp elt) (or (stringp (symbol-function elt)) - (vectorp (symbol-function elt))))) + (vectorp (symbol-function elt)) + (get elt 'kmacro)))) t)) current-prefix-arg)) (let (definition) |