From 4d79b8744fb607beb5ec7b074103970d52711601 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 6 Nov 2004 11:49:55 +0000 Subject: [PATCH] (insert-kbd-macro): Do completions based on macros, rather than all commands. --- lisp/ChangeLog | 5 +++++ lisp/macros.el | 9 ++++++++- 2 files changed, 13 insertions(+), 1 deletion(-) 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 + + * macros.el (insert-kbd-macro): Do completions based on macros, + rather than all commands. + 2004-11-06 David Hansen (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 -- 2.39.5