comparison lisp/international/quail.el @ 32713:b1d56a204fe6

(quail-update-guidance): Balance parens.

32712:add53414b14f

		     (setq key (quail-keyseq-translate key)))
		 (save-excursion
		   (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))))

  ;; Update completion buffer if displayed now.  We highlight the
  ;; selected candidate string in *Completion* buffer if any.
  (let ((win (get-buffer-window quail-completion-buf))
	key str pos)

32713:b1d56a204fe6

		     (setq key (quail-keyseq-translate key)))
		 (save-excursion
		   (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)))

  ;; Update completion buffer if displayed now.  We highlight the
  ;; selected candidate string in *Completion* buffer if any.
  (let ((win (get-buffer-window quail-completion-buf))
	key str pos)