[sawfish] make rename-window work again

[Christopher Bratusek <chrisb src gnome org>]

commit 748e393eab0642cdde2b0071d822d5a856d8cded
Author: chrisb <zanghar freenet de>
Date:   Thu Aug 6 19:53:26 2009 +0200

    make rename-window work again

 ChangeLog                  |    3 +++
 lisp/sawfish/wm/windows.jl |    6 ++++++
 2 files changed, 9 insertions(+), 0 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 3190f51..36a1243 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,6 @@
+2009-08-05  Christopher Bratusek <zanghar freenet de>
+	* lisp/sawfish/wm/windows.jl: make rename-window work again
+
 2009-07-30  Christopher Bratusek <zanghar freenet de>
 	* lisp/sawfish/gtk/widgets/color.jl: since we now got gtk-color-button-get-color-interp in rep-gtk, replace
 	                                     Button + ColorPreview [deprecated] + ColorSelection Trio by single ColorButton
diff --git a/lisp/sawfish/wm/windows.jl b/lisp/sawfish/wm/windows.jl
index 1fd4ffa..fa10df6 100644
--- a/lisp/sawfish/wm/windows.jl
+++ b/lisp/sawfish/wm/windows.jl
@@ -229,6 +229,12 @@ supported by client window W."
 
 ;;; renaming
 
+;; extra require to make rename-window work
+;; (open sawfish.wm.util.prompt) does not work!
+
+(unless batch-mode
+  (require 'sawfish.wm.util.prompt))
+
 (define (rename-window window new-name)
   (set-x-text-property window 'WM_NAME (vector new-name)
   (set-x-text-property window '_NET_WM_NAME (vector new-name))))