changeset 19391:763bc03e7797

(quail-guidance-buf): Now a permanent local. (quail-update-guidance, quail-show-guidance-buf): Test input-method-verbose-flag. (quail-setup-overlays): Underline quail-conv-overlay only if input-method-highlight-flag is non-nil.

--- a/lisp/international/quail.el	Sat Aug 16 21:06:04 1997 +0000
+++ b/lisp/international/quail.el	Sat Aug 16 21:16:27 1997 +0000
@@ -48,7 +48,7 @@
 ;; Buffer local variables
 
 (defvar quail-current-package nil
-  "The current Quail package to input multilingual text in Quail minor mode.
+  "The current Quail package, which depends on the current input method.
 See the documentation of `quail-package-alist' for the format.")
 (make-variable-buffer-local 'quail-current-package)
 (put 'quail-current-package 'permanent-local t)
@@ -62,6 +62,7 @@
 ;; Each buffer in which Quail is activated should use different
 ;; guidance buffers.
 (make-variable-buffer-local 'quail-guidance-buf)
+(put 'quail-guidance-buf 'permanent-local t)
 
 ;; A main window showing Quail guidance buffer.
 (defvar quail-guidance-win nil)
@@ -440,7 +441,8 @@
     (if (overlayp quail-conv-overlay)
 	(move-overlay quail-conv-overlay pos pos)
       (setq quail-conv-overlay (make-overlay pos pos nil nil t))
-      (overlay-put quail-conv-overlay 'face 'underline)
+      (if input-method-highlight-flag
+	(overlay-put quail-conv-overlay 'face 'underline))
       ;;(overlay-put quail-conv-overlay 'modification-hooks
       ;;'(quail-conv-overlay-modification-hook))
       )))
@@ -610,7 +612,8 @@
 	the sixth row is below the `z' - `/' row.
 Nth (N is even) and (N+1)th characters in the string are non-shifted
  and shifted characters respectively at the same location.
-The location of Nth character is row (N / 30) and column ((N mod 30) / 2).")
+The location of Nth character is row (N / 30) and column ((N mod 30) / 2).
+The command `quail-set-keyboard-layout' usually sets this variable.")
 
 (defconst quail-keyboard-layout-len 180)
 
@@ -1354,7 +1357,7 @@
 but if the current buffer is a minibuffer, it is shown in
 the bottom-most ordinary window of the same frame,
 or in a newly created frame (if the selected frame has no other windows)."
-  (if (and input-method-tersely-flag
+  (if (and (not input-method-verbose-flag)
 	   (eq (selected-window) (minibuffer-window)))
       ;; We don't need the guidance buffer.
       nil
@@ -1433,7 +1436,7 @@
 (defun quail-update-guidance ()
   "Update the Quail guidance buffer and completion buffer (if displayed now)."
   ;; Update guidance buffer.
-  (if (or (null input-method-tersely-flag)
+  (if (or input-method-verbose-flag
 	  (not (eq (selected-window) (minibuffer-window))))
       (let ((guidance (quail-guidance)))
 	(cond ((eq guidance t)