diff options
| -rw-r--r-- | lisp/international/quail.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 40357e5cbf9..69028b7113e 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el | |||
| @@ -1972,15 +1972,15 @@ or in a newly created frame (if the selected frame has no other windows)." | |||
| 1972 | (set-buffer quail-guidance-buf) | 1972 | (set-buffer quail-guidance-buf) |
| 1973 | (erase-buffer) | 1973 | (erase-buffer) |
| 1974 | (insert key))))) | 1974 | (insert key))))) |
| 1975 | ;; Make sure the height of the guidance window is OK -- | 1975 | ;; Make sure the height of the guidance window is OK -- |
| 1976 | ;; sometimes, if the minibuffer window expands due to user | 1976 | ;; sometimes, if the minibuffer window expands due to user |
| 1977 | ;; input (for instance if the newly inserted character is in a | 1977 | ;; input (for instance if the newly inserted character is in a |
| 1978 | ;; different font), it will cause the guidance window to be | 1978 | ;; different font), it will cause the guidance window to be |
| 1979 | ;; only partially visible. We force a redisplay first because | 1979 | ;; only partially visible. We force a redisplay first because |
| 1980 | ;; this automatic expansion doesn't happen until then, and we | 1980 | ;; this automatic expansion doesn't happen until then, and we |
| 1981 | ;; want to see the window sizes after the expansion. | 1981 | ;; want to see the window sizes after the expansion. |
| 1982 | (sit-for 0) | 1982 | (sit-for 0) |
| 1983 | (fit-window-to-buffer quail-guidance-win nil 1)))) | 1983 | (fit-window-to-buffer quail-guidance-win nil 1))) |
| 1984 | 1984 | ||
| 1985 | ;; Update completion buffer if displayed now. We highlight the | 1985 | ;; Update completion buffer if displayed now. We highlight the |
| 1986 | ;; selected candidate string in *Completion* buffer if any. | 1986 | ;; selected candidate string in *Completion* buffer if any. |