(insert-kbd-macro): Handle kmacro functions.

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)