[sawfish] reduce rename-window-func to props that actually work

[Christopher Bratusek <chrisb src gnome org>]

commit 2b559e6b84e4cd4cd0d409c169a00439593a531a
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Wed Nov 10 21:32:33 2010 +0100

    reduce rename-window-func to props that actually work

 ChangeLog                  |    1 +
 lisp/sawfish/wm/windows.jl |    6 +-----
 2 files changed, 2 insertions(+), 5 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 24ead09..c29fb64 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,7 @@
 2010-11-10  Christopher Bratusek <zanghar freenet de>
 	* lisp/sawfish/wm/windows.jl: make get-window-by-role return nil if matching using a
 				      regex, rather than throwing an error
+				      reduce rename-window-func to props that actually work
 
 2010-11-09  Christopher Bratusek <zanghar freenet de>
 	* lisp/sawfish/wm/windows.jl: added window-role function
diff --git a/lisp/sawfish/wm/windows.jl b/lisp/sawfish/wm/windows.jl
index 1960d10..536e9d8 100644
--- a/lisp/sawfish/wm/windows.jl
+++ b/lisp/sawfish/wm/windows.jl
@@ -571,11 +571,7 @@ STATES has been changed. STATES may also be a single symbol."
 
   (define (rename-window-func window new-name)
       (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)))
+      (set-x-text-property window 'WM_ICON_NAME (vector new-name)))
 
   (define (rename-window-interactive w)
     (require 'sawfish.wm.util.prompt)