[Clfswm-cvs] [clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen Window Manager branch master updated. R-1212-63-g7c63375

[Philippe Brochard]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CLFSWM - A(nother) Common Lisp FullScreen Window Manager".

The branch, master has been updated
       via  7c63375c46e4eede7ae29dca007094ef55992f18 (commit)
      from  e5a29ab7c25843747c4b7fed8e56907e36b0c4ff (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 7c63375c46e4eede7ae29dca007094ef55992f18
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Tue Nov 4 23:20:58 2014 +0100

    Handle correctly multi letters child in expose mode

diff --git a/src/clfswm-expose-mode.lisp b/src/clfswm-expose-mode.lisp
index 7a8726f..acb0e62 100644
--- a/src/clfswm-expose-mode.lisp
+++ b/src/clfswm-expose-mode.lisp
@@ -127,8 +127,11 @@
 (defun expose-query-key-press-hook (code state)
   (declare (ignore code state))
   (expose-draw-letter)
-  (when (and *expose-direct-select* (<= (length *expose-child-list*) 26))
-    (leave-query-mode :return)))
+  (let ((two-letters-key (dolist (child *expose-child-list*)
+			   (when (> (length (expose-child-key child)) 1)
+			     (return t)))))
+    (when (and *expose-direct-select* (not two-letters-key))
+      (leave-query-mode :return))))
 
 (defun expose-query-button-press-hook (code state x y)
   (declare (ignore state))

-----------------------------------------------------------------------

Summary of changes:
 src/clfswm-expose-mode.lisp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)


hooks/post-receive
-- 
CLFSWM - A(nother) Common Lisp FullScreen Window Manager