Ouch! Previous patch for sawfish didn't work, the following one does: diff --git a/lisp/sawfish/wm.jl b/lisp/sawfish/wm.jl index fb7c47b..c127ad0 100644 --- a/lisp/sawfish/wm.jl +++ b/lisp/sawfish/wm.jl @@ -34,6 +34,21 @@ ;; set $DISPLAY so that any subprocesses inherit it (setenv "DISPLAY" display-name) +(unless batch-mode + +(require 'sawfish.wm.misc) + +;; GNOME +(if (getenv "GNOME_DESKTOP_SESSION_ID") + (set-x-text-property 'root 'WINDOW_MANAGER (vector "sawfish-gnome")) + +;; KDE +(if (getenv "KDE_SESSION_VERSION") + (set-x-text-property 'root 'WINDOW_MANAGER (vector "sawfish-kde")) + +;; STANDALONE +(set-x-text-property 'root 'WINDOW_MANAGER (vector "sawfish"))))) + ;; load i18n support when necessary (unless batch-mode
I guess it should not be a problem to commit it. How do I use eq properly here: (if (eq (get-x-text-property 'root 'WINDOW_MANAGER) 'sawfish) (<whatever>)) I thought that should work. Chris
