# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1101686267 0
# Node ID d6d7c44e2b68f42ad8d2bdfe0fd8d3b601ea99c6
# Parent  c664799298b507cc5f4ee5ec3f4cca4f175cbfc9
(insert-kbd-macro): Handle kmacro functions.

diff -r c664799298b5 -r d6d7c44e2b68 lisp/macros.el
--- 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)