From: Kenichi Handa <handa@m17n.org>
Date: Thu, 23 Oct 1997 12:05:45 +0000 (+0000)
Subject: (quail-require-guidance-buf): Adjusted
X-Git-Tag: emacs-20.3~2913
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9a0eac6e7ac71e13395c61cb0fd801b897655939;p=emacs.git

(quail-require-guidance-buf): Adjusted
for the change of input-method-verbose-flag.
---

diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index 4191f61255a..f4acccbc411 100644
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -1431,8 +1431,12 @@ Remaining args are for FUNC."
 ;; buffer.
 (defun quail-require-guidance-buf ()
   (and input-method-verbose-flag
-       (not (and (eq (selected-window) (minibuffer-window))
-		 (quail-simple)))))
+       (if (eq input-method-verbose-flag 'default)
+	   (not (and (eq (selected-window) (minibuffer-window))
+		     (quail-simple)))
+	 (if (eq input-method-verbose-flag 'complex-only)
+	     (not (quail-simple))
+	   t))))
 
 (defun quail-show-guidance-buf ()
   "Display a guidance buffer for Quail input method in some window.