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

diff --git a/lisp/macros.el b/lisp/macros.el
index bb9fda41a4552fa14399af1d8668526ac92cb8fe..41024e4e40fc8390be7d018aabf2d337d6433207 100644 (file)
--- 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)