Merge remote-tracking branch 'refs/remotes/github/master' into phoenix

2012-03-11 11:39:43 +01:00 · 2012-03-11 11:39:43 +01:00 · 20d500539d
commit 20d500539d
parent 4ce7e72c08 978613be50
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"