[sawfish/sawfish-2.90] remove desktop check from rename-window-func



commit a124314dbc8817cb681b3cd1eef1a25170f1601a
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Sat Oct 23 10:00:54 2010 +0200

    remove desktop check from rename-window-func

 ChangeLog                  |    2 ++
 lisp/sawfish/wm/windows.jl |    6 ++----
 2 files changed, 4 insertions(+), 4 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 7ff8e8b..6e3bd5f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -5,6 +5,8 @@
 
 	* configure.in: bumped to 2.90.0
 
+	* lisp/sawfish/wm/windows.jl: remove desktop-check from rename-window-func
+
 2010-10-21  Christopher Bratusek <zanghar freenet de>
 	* man/news.texi: fixed a typo
 	                 updated
diff --git a/lisp/sawfish/wm/windows.jl b/lisp/sawfish/wm/windows.jl
index f57f802..fe82037 100644
--- a/lisp/sawfish/wm/windows.jl
+++ b/lisp/sawfish/wm/windows.jl
@@ -542,10 +542,8 @@ STATES has been changed. STATES may also be a single symbol."
            state-changes)))
 
   (define (rename-window-func window new-name)
-    "Renames the WINDOW to 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))))
+      (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))



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]