Mercurial > emacs
changeset 58609:d6d7c44e2b68
(insert-kbd-macro): Handle kmacro functions.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Sun, 28 Nov 2004 23:57:47 +0000 |
| parents | c664799298b5 |
| children | 903d22ed0208 |
| files | lisp/macros.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/macros.el Sun Nov 28 23:57:17 2004 +0000 +++ b/lisp/macros.el Sun Nov 28 23:57:47 2004 +0000 @@ -63,12 +63,13 @@ 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)