From d746c36c7f71c81728fd8bfbfc05fc41e92ef956 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Sun, 28 Nov 2004 23:57:47 +0000 Subject: (insert-kbd-macro): Handle kmacro functions. --- lisp/macros.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'lisp/macros.el') 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) -- cgit v1.2.1