[sawfish] jump-or-exec cleanup



commit 2ff3ce8d242b4eda7b0701d2641a6a49ddc9c711
Author: Christopher Roy Bratusek <chris nanolx org>
Date:   Fri Jan 15 21:03:44 2010 +0100

    jump-or-exec cleanup

 lisp/sawfish/wm/commands/jump-or-exec.jl |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)
---
diff --git a/lisp/sawfish/wm/commands/jump-or-exec.jl b/lisp/sawfish/wm/commands/jump-or-exec.jl
index 14fe76d..e4f6ddb 100644
--- a/lisp/sawfish/wm/commands/jump-or-exec.jl
+++ b/lisp/sawfish/wm/commands/jump-or-exec.jl
@@ -44,7 +44,8 @@
 	  rep.regexp
           sawfish.wm.misc
           sawfish.wm.windows
-	  sawfish.wm.util.display-window)
+	  sawfish.wm.util.display-window
+	  sawfish.wm.commands)
 
   (define (jump-or-exec re prog #!optional class onfocused)
     "jump to a window matched by re, or start program otherwise."
@@ -65,4 +66,4 @@
                 (funcall prog)
               (system (concat prog "&")))))))
 
-  (define-command 'jump-or-exec jump-or-exec #:class default))
+  (define-command 'jump-or-exec jump-or-exec #:class 'default))



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]