diff options
| author | Miles Bader | 2000-10-21 08:07:01 +0000 |
|---|---|---|
| committer | Miles Bader | 2000-10-21 08:07:01 +0000 |
| commit | 8c5d801f458fba4e5e290f01d3130f18ded10e33 (patch) | |
| tree | 323ab0f2912045b4a51e4ed5769491b39126bb33 | |
| parent | de54681ae510642d21f20e9dfd6f6e5125756980 (diff) | |
| download | emacs-8c5d801f458fba4e5e290f01d3130f18ded10e33.tar.gz emacs-8c5d801f458fba4e5e290f01d3130f18ded10e33.zip | |
(quail-update-guidance): Balance parens.
| -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. |