[STUMP] [PATCH] Make "where-is" handle unbound command correctly

[Lionel Flandrin]

---
 help.lisp |    8 ++++++--
 1 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/help.lisp b/help.lisp
index 1afab54..09e014f 100644
--- a/help.lisp
+++ b/help.lisp
@@ -104,9 +104,13 @@ 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."
-  (message-no-timeout "\"~a\" is on ~{~a~^, ~}"
+(let ((bindings (search-kmap cmd *top-map*)))
+  (if bindings
+      (message-no-timeout "\"~a\" is on ~{~a~^, ~}"
                       cmd
-                      (mapcar 'print-key-seq (search-kmap cmd *top-map*))))
+                      (mapcar 'print-key-seq bindings))
+      (message-no-timeout "Command \"~a\" is not currently bound"
+                      cmd))))
 
 (defcommand modifiers () ()
   "List the modifiers stumpwm recognizes and what MOD-X it thinks they're on."
-- 
1.5.6.2