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 | 5edd7c333a9f6ecfd34753f5d8e8203cf6463367 (patch) | |
| tree | 40df6059ba77eb49a2a1c557386e2cf83851ede5 /lisp/macros.el | |
| parent | bbf877e1c28441b3fa8081e28fc11db5e7705ed0 (diff) | |
| download | emacs-5edd7c333a9f6ecfd34753f5d8e8203cf6463367.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) |