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

rather than all commands.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f3b2b82da1e913f7f9f2c9edc17a7985f1a6fdae..07ee943054cb56c258664aa552f3b3ea6bddff17 100644 (file)
--- 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 0de5d223ee000aab1d482c310e112b3cc2a82fc3..bb9fda41a4552fa14399af1d8668526ac92cb8fe 100644 (file)
--- 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