Commit 2253894d authored by Miles Bader's avatar Miles Bader
Browse files

(quail-update-guidance): Force a redisplay before setting the guidance

window size, to ensure we see any minibuffer expansion it causes.
parent f29906f8
......@@ -1955,14 +1955,19 @@ or in a newly created frame (if the selected frame has no other windows)."
;; Update guidance buffer.
(if (quail-require-guidance-buf)
(let ((guidance (quail-guidance)))
(if (and (eq (selected-frame) (window-frame (minibuffer-window)))
(eq (selected-frame) (window-frame quail-guidance-win)))
;; Make sure the height of the guidance window is OK
;; (sometimes, if the minibuffer window has expanded due to
;; user input, it will cause the guidance window to be only
;; partially visible).
(set-window-text-height quail-guidance-win 1)
(quail-show-guidance-buf))
(if (not (and (eq (selected-frame) (window-frame (minibuffer-window)))
(eq (selected-frame) (window-frame quail-guidance-win))))
;; The guidance window is not show in this frame, show it
(quail-show-guidance-buf)
;; Make sure the height of the guidance window is OK --
;; sometimes, if the minibuffer window expands due to user
;; input (for instance if the newly inserted character is in a
;; different font), it will cause the guidance window to be
;; only partially visible. We force a redisplay first because
;; this automatic expansion doesn't happen until then, and we
;; want to see the window sizes after the expansion.
(sit-for 0)
(set-window-text-height quail-guidance-win 1))
(cond ((or (eq guidance t)
(consp guidance))
;; Show the current possible translations.
......
Markdown is supported
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