From: Kim F. Storm <storm@cua.dk>
Date: Sun, 28 Nov 2004 23:57:47 +0000 (+0000)
Subject: (insert-kbd-macro): Handle kmacro functions.
X-Git-Tag: ttn-vms-21-2-B4~3582
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5edd7c333a9f6ecfd34753f5d8e8203cf6463367;p=emacs.git

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

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)