# HG changeset patch # User Miles Bader # Date 972115621 0 # Node ID b1d56a204fe63dc7837d78e5ff0f820d5481330f # Parent add53414b14f5dd34c15d9f7263c531c8b5918b2 (quail-update-guidance): Balance parens. diff -r add53414b14f -r b1d56a204fe6 lisp/international/quail.el --- a/lisp/international/quail.el Sat Oct 21 08:02:17 2000 +0000 +++ b/lisp/international/quail.el Sat Oct 21 08:07:01 2000 +0000 @@ -1972,15 +1972,15 @@ (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.