[STUMP] [PATCH] Modified describe-key and where-is to check group type specific keymaps.

[Ben Spencer]

---
 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