>From aec602e3d880bef4c41dcd1e344c1d3375968015 Mon Sep 17 00:00:00 2001 From: Morgan Veyret Date: Mon, 27 Oct 2008 10:20:46 +0100 Subject: [PATCH] Restored message when placing window in a non-visible group. --- window.lisp | 5 +++-- 1 files changed, 3 insertions(+), 2 deletions(-) diff --git a/window.lisp b/window.lisp index 24e5c44..cb7157e 100644 --- a/window.lisp +++ b/window.lisp @@ -676,9 +676,10 @@ needed." ;; is the current group or the rule's :lock attribute was ;; on. Either way the window's group should become the current ;; one (if it isn't already) if :raise is T. - (when (getf placement-data :raise) - (switch-to-group (window-group window))) (when placement-data + (if (getf placement-data :raise) + (switch-to-group (window-group window)) + (message "Placing window ~a in group ~a" (window-name window) (group-name (window-group window)))) (apply 'run-hook-with-args *place-window-hook* window (window-group window) placement-data))) ;; must call this after the group slot is set for the window. (grab-keys-on-window window) -- 1.5.4.5