From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 6 Nov 2004 11:49:55 +0000 (+0000)
Subject: (insert-kbd-macro): Do completions based on macros,
X-Git-Tag: ttn-vms-21-2-B4~4164
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4d79b8744fb607beb5ec7b074103970d52711601;p=emacs.git

(insert-kbd-macro): Do completions based on macros,
rather than all commands.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f3b2b82da1e..07ee943054c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-11-06  Alan Shutko  <ats@acm.org>
+
+	* macros.el (insert-kbd-macro): Do completions based on macros,
+	rather than all commands.
+
 2004-11-06  David Hansen  <david.hansen@gmx.net>  (tiny change)
 
 	* tempo.el (tempo-match-finder): Use [:word:] instead of "^\\b",
diff --git a/lisp/macros.el b/lisp/macros.el
index 0de5d223ee0..bb9fda41a45 100644
--- a/lisp/macros.el
+++ b/lisp/macros.el
@@ -63,7 +63,14 @@ 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 "CInsert kbd macro (name): \nP")
+  (interactive (list (intern (completing-read "Insert kbd macro (name): " 
+					      obarray 
+					      (lambda (elt)
+						(and (fboundp elt)
+						     (or (stringp (symbol-function elt))
+							 (vectorp (symbol-function elt)))))
+					      t))
+		     current-prefix-arg))
   (let (definition)
     (if (string= (symbol-name macroname) "")
 	(progn