[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[STUMP] [PATCH] Modified describe-key and where-is to check group type s
From: |
Ben Spencer |
Subject: |
[STUMP] [PATCH] Modified describe-key and where-is to check group type specific keymaps. |
Date: |
Sat, 30 May 2009 19:06:17 +0100 |
User-agent: |
Mutt/1.5.19 (2009-01-05) |
---
help.lisp | 7 +++++--
1 files changed, 5 insertions(+), 2 deletions(-)
diff --git a/help.lisp b/help.lisp
index 70ef9db..e87f83a 100644
--- a/help.lisp
+++ b/help.lisp
@@ -75,7 +75,10 @@
(defcommand describe-key (keys) ((:key-seq "Describe Key: "))
"Either interactively type the key sequence or supply it as text. This
command prints the command bound to the specified key sequence."
- (let ((cmd (lookup-key-sequence *top-map* keys)))
+ (let ((cmd))
+ (loop for map in (top-maps)
+ do (setf cmd (lookup-key-sequence map keys))
+ until cmd)
(if cmd
(message "~{~a~^ ~} is bound to \"~a\"." (mapcar 'print-key keys) cmd)
(message "~{~a~^ ~} is not bound." (mapcar 'print-key keys)))))
@@ -107,7 +110,7 @@ command prints the command bound to the specified key
sequence."
(defcommand where-is (cmd) ((:rest "Where is command: "))
"Print the key sequences bound to the specified command."
-(let ((bindings (search-kmap cmd *top-map*)))
+(let ((bindings (loop for map in (top-maps) append (search-kmap cmd map))))
(if bindings
(message-no-timeout "\"~a\" is on ~{~a~^, ~}"
cmd
--
1.6.3.1
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [STUMP] [PATCH] Modified describe-key and where-is to check group type specific keymaps.,
Ben Spencer <=