comparison lisp/international/quail.el @ 99198:96652546aa33

(quail-show-guidance): Don't create a guidance-frame if current buffer is not a minibuffer, since even if selected-window is mini-p, the buffer will never be displayed in it, so it wil be usable for guidance.

99197:7548cef42245

    name))

;;;###autoload
(defun quail-use-package (package-name &rest libraries)
  "Start using Quail package PACKAGE-NAME.
The remaining arguments are libraries to be loaded before using the package.

This activates input method defined by PACKAGE-NAME by running
`quail-activate', which see."
  (let ((package (quail-package package-name)))
    (if (null package)

  (interactive)
  (quail-activate -1))

(defun quail-activate (&optional arg)
  "Activate Quail input method.
With arg, activate Quail input method if and only if arg is positive.

This function runs `quail-activate-hook' if it activates the input
method, `quail-inactivate-hook' if it deactivates it.

While this input method is active, the variable

  ;; Then, show the guidance.
  (when (and (quail-require-guidance-buf)
	     (not input-method-use-echo-area)
	     (null unread-command-events)
	     (null unread-post-input-method-events))
    (if (eq (selected-window) (minibuffer-window))
	(if (eq (minibuffer-window) (frame-root-window))
	    ;; Use another frame.  It is sure that we are using some
	    ;; window system.
	    (let ((guidance quail-guidance-str))
	      (or (frame-live-p quail-guidance-frame)

99198:96652546aa33

    name))

;;;###autoload
(defun quail-use-package (package-name &rest libraries)
  "Start using Quail package PACKAGE-NAME.
The remaining arguments are LIBRARIES to be loaded before using the package.

This activates input method defined by PACKAGE-NAME by running
`quail-activate', which see."
  (let ((package (quail-package package-name)))
    (if (null package)

  (interactive)
  (quail-activate -1))

(defun quail-activate (&optional arg)
  "Activate Quail input method.
With ARG, activate Quail input method if and only if arg is positive.

This function runs `quail-activate-hook' if it activates the input
method, `quail-inactivate-hook' if it deactivates it.

While this input method is active, the variable

  ;; Then, show the guidance.
  (when (and (quail-require-guidance-buf)
	     (not input-method-use-echo-area)
	     (null unread-command-events)
	     (null unread-post-input-method-events))
    (if (minibufferp)
	(if (eq (minibuffer-window) (frame-root-window))
	    ;; Use another frame.  It is sure that we are using some
	    ;; window system.
	    (let ((guidance quail-guidance-str))
	      (or (frame-live-p quail-guidance-frame)