[STUMP] [PATCH] update-mode-lines in focus-window for when a mouse is used.

[John Li]

Otherwise, the "current window" highlighting in the window list is
incorrect until the next mode-line update.
---

Bug demo:
1. Turn on the mode-line and have %W (fmt-head-window-list) in it.
2. Setf *mouse-focus-policy* to either :sloppy or :click.
3. Move your mouse over different windows (or click on them) to focus them.
4. Notice that the highlighted window doesn't change.

Using keyboard commands results in calling update-all-mode-lines via
eval-command. With mouse-based focusing though, the mode-line isn't
ever updated.

 window.lisp |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)

diff --git a/window.lisp b/window.lisp
index fb9e6f1..41a026e 100644
--- a/window.lisp
+++ b/window.lisp
@@ -1107,6 +1107,8 @@ maximized, and given focus."
         (update-window-border cw))
       ;; Move the window to the head of the mapped-windows list
       (move-window-to-head group window)
+      ;; need this for mouse-based focuses
+      (update-mode-lines (current-screen))
       (run-hook-with-args *focus-window-hook* window cw))))
 
 (defun delete-window (window)
-- 
1.5.6.3