[sawfish] two dummy funcs for compat

[Christopher Bratusek <chrisb src gnome org>]

commit dfa82ccdbf0f19366e3dd3c3f1930d14ae8b78ac
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Tue Nov 9 20:52:04 2010 +0100

    two dummy funcs for compat

 ChangeLog                                |    4 ++++
 lisp/sawfish/wm/commands/jump-or-exec.jl |    4 ++--
 lisp/sawfish/wm/windows.jl               |   12 +++++++++++-
 3 files changed, 17 insertions(+), 3 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index be99431..4c53722 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -5,6 +5,10 @@
 				      merged get-window-by-class-re into get-window-by-class
 				      added get-window-by-id
 				      added get-window-by-role
+				      added dummy get-window-by-class-re for compat
+				      added dummy get-window-by-name-re for compat
+
+	* lisp/sawfish/wm/commands/jump-or-exec.jl: updated
 
 2010-11-06  Teika kazura <teika lavabit com>
 	* man/news.texi
diff --git a/lisp/sawfish/wm/commands/jump-or-exec.jl b/lisp/sawfish/wm/commands/jump-or-exec.jl
index e4f6ddb..77a3d60 100644
--- a/lisp/sawfish/wm/commands/jump-or-exec.jl
+++ b/lisp/sawfish/wm/commands/jump-or-exec.jl
@@ -51,8 +51,8 @@
     "jump to a window matched by re, or start program otherwise."
     (catch 'return
       (let ((wind (if class
-                    (get-window-by-class-re re)
-                    (get-window-by-name-re re))))
+                    (get-window-by-clase re #:regex t)
+                    (get-window-by-name re #:regex t))))
         (if (functionp onfocused) ; check if already focused
             (let ((curwin (input-focus)))
               (if curwin
diff --git a/lisp/sawfish/wm/windows.jl b/lisp/sawfish/wm/windows.jl
index bf9e185..4d3800d 100644
--- a/lisp/sawfish/wm/windows.jl
+++ b/lisp/sawfish/wm/windows.jl
@@ -61,7 +61,11 @@
 	     call-after-property-changed
 	     call-after-state-changed
 	     rename-window-func
-	     rename-window-interactive))
+	     rename-window-interactive
+	     
+	     ;; dummy
+	     get-window-by-class-re
+	     get-window-by-name-re))
 
     (open rep
 	  rep.system
@@ -141,6 +145,9 @@ is being checked instead. Returns nil if no such window is found."
         (car (filter-windows (lambda (w)
   			       (string= (window-name w) name)))))))
 
+  (define (get-window-by-name-re name)
+    (get-window-by-name name #:regex t))
+
   (define (get-window-by-class class #!key regex)
     "Find a window object whose window-class is CLASS. If REGEX is set then find
 a window object whose window-class matches CLASS. Returns nil if no such window
@@ -151,6 +158,9 @@ is found."
       (car (filter-windows (lambda (w)
   			     (string= (window-class w) class))))))
 
+  (define (get-window-by-class-re class)
+    (get-window-by-class class #:regex t))
+
   (define (get-window-by-id id #!key regex)
     "Find a window object whose window-id is ID. If REGEX is set then find
 a window object whose window-id matches ID. Returns nil if no such window