(insert-kbd-macro): Do completions based on macros,

rather than all commands.

2 files changed, 13 insertions, 1 deletions

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