diff options
author | Tom Willemsen | 2012-03-11 11:39:43 +0100 |
---|---|---|
committer | Tom Willemsen | 2012-03-11 11:39:43 +0100 |
commit | 20d500539d1a47811189ebf60381b07ec6be516e (patch) | |
tree | 1f92b9634fa74c28cf7a513307ca8be4f12b89ba /.xbindkeysrc.scm | |
parent | 4ce7e72c080535d8defd42d7d9577663752c523c (diff) | |
parent | 978613be504c170c44ddacc71828bb2f7ceaa725 (diff) | |
download | dotfiles-20d500539d1a47811189ebf60381b07ec6be516e.tar.gz dotfiles-20d500539d1a47811189ebf60381b07ec6be516e.zip |
Merge remote-tracking branch 'refs/remotes/github/master' into phoenix
Diffstat (limited to '.xbindkeysrc.scm')
-rw-r--r-- | .xbindkeysrc.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/.xbindkeysrc.scm b/.xbindkeysrc.scm index 5149054..2ff2971 100644 --- 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" |