[sawfish] behavior-change in rename-window

[Christopher Bratusek <chrisb src gnome org>]

commit 3b72e3e6d24e9a76a8f65b4e285a04ccf4bf272e
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Thu Oct 21 18:09:04 2010 +0200

    behavior-change in rename-window

 lisp/sawfish/wm/windows.jl |   11 +++++++----
 1 files changed, 7 insertions(+), 4 deletions(-)
---
diff --git a/lisp/sawfish/wm/windows.jl b/lisp/sawfish/wm/windows.jl
index 0fb5c29..bbddd13 100644
--- a/lisp/sawfish/wm/windows.jl
+++ b/lisp/sawfish/wm/windows.jl
@@ -543,10 +543,13 @@ STATES has been changed. STATES may also be a single symbol."
 
   (define (rename-window-func window new-name)
     "Renames the WINDOW to NEW-NAME."
-    (set-x-text-property window 'WM_NAME (vector new-name))
-    (set-x-text-property window '_NET_WM_NAME (vector new-name))
-    (set-x-text-property window 'WM_ICON_NAME (vector new-name))
-    (set-x-text-property window '_NET_WM_ICON_NAME (vector new-name)))
+    (unless (string-match desktop-environment "none")
+        (progn (set-x-text-property window 'WM_NAME (vector new-name))
+	       (set-x-text-property window 'WM_ICON_NAME (vector new-name))))
+      ;; XXX doesn't have any effect?
+      (set-x-text-property window '_NET_WM_VISIBLE_NAME (vector new-name))
+      (set-x-text-property window '_NET_WM_NAME (vector new-name))
+      (set-x-text-property window '_NET_WM_ICON_NAME (vector new-name)))
 
   (define (rename-window-interactive w)
     (require 'sawfish.wm.util.prompt)