Commit 7c63375c authored by Philippe Brochard's avatar Philippe Brochard
Browse files

Handle correctly multi letters child in expose mode

parent e5a29ab7
......@@ -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))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment