.xbindkeysrc.scm

2012-03-11 11:08:03 +01:00 · 2012-03-11 11:08:03 +01:00 · 978613be50
commit 978613be50
parent 4852b29ca7
1 changed files with 5 additions and 3 deletions
--- a/.xbindkeysrc.scm
+++ b/.xbindkeysrc.scm
@ -90,9 +90,11 @@ the command."
                (string-append "dmenu_pick -p 'Run:' " dmenu-args)))
         (prog (read-line file)))
    (close-port file)
-    (switch-to-tag prog)
-    (run-command prog))
-  (reset-main-binding))
+    (if (string? prog)
+        (begin
+          (switch-to-tag prog)
+          (run-command prog)))
+  (reset-main-binding)))

 (define (kill-tag)
  "Kill a selected tag"