(set-buffer quail-guidance-buf)
(erase-buffer)
(insert key)))))
- ;; 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)
- (fit-window-to-buffer quail-guidance-win nil 1))))
+ ;; 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)
+ (fit-window-to-buffer quail-guidance-win nil 1)))
;; Update completion buffer if displayed now. We highlight the
;; selected candidate string in *Completion* buffer if any.