Mercurial > emacs
comparison lisp/international/quail.el @ 32713:b1d56a204fe6
(quail-update-guidance): Balance parens.
author | Miles Bader <miles@gnu.org> |
---|---|
date | Sat, 21 Oct 2000 08:07:01 +0000 |
parents | d22bbff7dad8 |
children | 451f8d2802e4 |
comparison
equal
deleted
inserted
replaced
32712:add53414b14f | 32713:b1d56a204fe6 |
---|---|
1970 (setq key (quail-keyseq-translate key))) | 1970 (setq key (quail-keyseq-translate key))) |
1971 (save-excursion | 1971 (save-excursion |
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. |
1987 (let ((win (get-buffer-window quail-completion-buf)) | 1987 (let ((win (get-buffer-window quail-completion-buf)) |
1988 key str pos) | 1988 key str pos) |