[sawfish] removed double-defined func

[Christopher Bratusek <chrisb src gnome org>]

commit a082a4f0a3097e85a540de085ea2a720b86aaa13
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Tue Nov 9 22:05:31 2010 +0100

    removed double-defined func

 ChangeLog                  |    1 -
 lisp/sawfish/wm/windows.jl |   11 -----------
 2 files changed, 0 insertions(+), 12 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 4c53722..0b9e40c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,7 +3,6 @@
 				      merged get-window-by-name-re into get-window-by-name
 				      added possibility to get-window-by-name to check on icon-name
 				      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
diff --git a/lisp/sawfish/wm/windows.jl b/lisp/sawfish/wm/windows.jl
index 22daecf..e09ff57 100644
--- a/lisp/sawfish/wm/windows.jl
+++ b/lisp/sawfish/wm/windows.jl
@@ -26,7 +26,6 @@
      (structure-interface sawfish.wm.windows.subrs)
      (export get-window-by-name
 	     get-window-by-class
-	     get-window-by-id
 	     get-window-by-role
 	     window-really-wants-input-p
 	     window-transient-p
@@ -161,16 +160,6 @@ is found."
   (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
-is found."
-    (if regex
-        (car (filter-windows (lambda (w)
-			       (string-match id (window-id w)))))
-      (car (filter-windows (lambda (w)
-			     (string= (window-id w) id))))))
-
   (define (get-window-by-role role #!key regex)
     "Find a window object whose window-role is ROLE. If REGEX is set then
 find a window object whose window-role matches ROLE. Returns nil if no such