comparison lisp/international/quail.el @ 40667:589781f0ee38

(quail-help): Use `help-buffer' and move `help-setup-xref' to beginning.

40666:84cd0f5441e2

      (setq keyboard-type quail-keyboard-layout-type))
  (let ((layout (assoc keyboard-type quail-keyboard-layout-alist)))
    (or layout
	(error "Unknown keyboard type: %s" keyboard-type))
    (with-output-to-temp-buffer "*Help*"
      (save-excursion
	(set-buffer standard-output)
	(insert "Keyboard layout (keyboard type: "
		keyboard-type
		")\n")
	(quail-insert-kbd-layout (cdr layout))))))

	      (if input-method-exit-on-first-char
		  (list (aref input-string 0))
		(quail-input-string-to-events input-string))))
	(quail-delete-overlays)
	(if (buffer-live-p quail-guidance-buf)
	    (save-excursion
	      (set-buffer quail-guidance-buf)
	      (erase-buffer)))
	(quail-hide-guidance-buf)
	(set-buffer-modified-p modified-p)
	;; Run this hook only when the current input method doesn't require
	;; conversion.  When conversion is required, the conversion function

(defun quail-terminate-translation ()
  "Terminate the translation of the current key."
  (setq quail-translating nil)
  (if (buffer-live-p quail-guidance-buf)
      (save-excursion
	(set-buffer quail-guidance-buf)
	(erase-buffer))))

(defun quail-select-current ()
  "Accept the currently selected translation."
  (interactive)

(defun quail-setup-completion-buf ()
  "Setup Quail completion buffer."
  (unless (buffer-live-p quail-completion-buf)
    (let ((default-enable-multibyte-characters enable-multibyte-characters))
      (setq quail-completion-buf (get-buffer-create "*Quail Completions*")))
    (save-excursion
      (set-buffer quail-completion-buf)
      (setq quail-overlay (make-overlay 1 1))
      (overlay-put quail-overlay 'face 'highlight))))

(defun quail-require-guidance-buf ()
  "Return t iff the current Quail package requires showing guidance buffer."

    (let ((default-enable-multibyte-characters enable-multibyte-characters))
      (or (buffer-live-p quail-guidance-buf)
	  (setq quail-guidance-buf (generate-new-buffer " *Quail-guidance*"))))
    (let ((name (quail-name))
	  (title (quail-title)))
      (save-excursion
	(set-buffer quail-guidance-buf)
	;; To show the title of Quail package.
	(setq current-input-method name
	      current-input-method-title title)
	(erase-buffer)
	(or (overlayp quail-overlay)

	      (when (>= height 4)
		;; Here, `split-window' returns a lower window
		;; which is what we wanted.
		(setq win (split-window win (- height 2))))
	      (set-window-buffer win quail-guidance-buf)
	      (save-excursion
		(set-buffer quail-guidance-buf)
		(fit-window-to-buffer win nil (window-height win)))))
	(set-window-buffer win quail-guidance-buf)
	(set-minibuffer-window win))
      (setq quail-guidance-win win)))

	      ((null guidance)
	       ;; Show the current input keys.
	       (let ((key quail-current-key))
		 (if (quail-kbd-translate)
		     (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

  (let* ((key quail-current-key)
	 (map (quail-lookup-key quail-current-key))
	 (current-translations quail-current-translations))
    (if quail-current-translations
	(quail-update-current-translations))
    (save-excursion
      (set-buffer quail-guidance-buf)
      (erase-buffer)

      ;; Show the current key.
      (let ((guidance (quail-guidance)))
	(if (listp guidance)

  (quail-setup-completion-buf)
  (let ((win (get-buffer-window quail-completion-buf 'visible))
	(key quail-current-key)
	(map (quail-lookup-key quail-current-key))
	(require-update nil))
    (save-excursion
      (set-buffer quail-completion-buf)
      (if (and win
	       (equal key quail-current-key)
	       (eq last-command 'quail-completion))
	  ;; The window for Quail completion buffer has already been
	  ;; shown.  We just scroll it appropriately.

  ;; Give temporary modes such as isearch a chance to turn off.
  (run-hooks 'mouse-leave-buffer-hook)
  (let ((buffer (window-buffer))
        choice
	base-size)
    (save-excursion
      (set-buffer (window-buffer (posn-window (event-start event))))
      (if completion-reference-buffer
	  (setq buffer completion-reference-buffer))
      (setq base-size completion-base-size)
      (save-excursion
	(goto-char (posn-point (event-start event)))

	(insert ?\n))
      (insert ?\n))))

(defun quail-help (&optional package)
  "Show brief description of the current Quail package.
Optional 2nd arg PACKAGE specifies the name of alternative Quail
package to describe."
  (interactive)
  (if package
      (setq package (assoc package quail-package-alist))
    (setq package quail-current-package))
  (let ((help-xref-mule-regexp help-xref-mule-regexp-template)
	(default-enable-multibyte-characters enable-multibyte-characters))
    ;; At first, make sure that the help buffer has window.
    (with-output-to-temp-buffer "*Help*"
      (save-excursion
	(set-buffer standard-output)
	(setq quail-current-package package)))
    ;; Then, insert text in the help buffer while paying attention to
    ;; the width of the frame in which the buffer displayed.
    (save-excursion
      (set-buffer (get-buffer "*Help*"))
      (setq buffer-read-only nil)
      (insert "Input method: " (quail-name)
	      " (mode line indicator:"
	      (quail-title)
	      ")\n\n")

	  (quail-help-insert-keymap-description
	   (quail-conversion-keymap)
	   "\
KEY BINDINGS FOR CONVERSION
---------------------------\n"))
      (help-setup-xref (list #'quail-help (quail-name))
		       (interactive-p))
      (setq quail-current-package nil)
      ;; Resize the help window again, now that it has all its contents.
      (save-selected-window
 	(select-window (get-buffer-window (current-buffer)))
	(run-hooks 'temp-buffer-show-hook)))))

	  (setq state-msg
		(format "Translating key sequence %S by input method %S.\n"
			quail-current-key (quail-name))
		keymap (quail-translation-keymap)))
	(with-output-to-temp-buffer "*Help*"
	  (save-excursion
	    (set-buffer standard-output)
	    (insert state-msg)
	    (quail-help-insert-keymap-description
	     keymap
	     "-----------------------\n")
	    (help-mode)))))
  (let (scroll-help)
    (save-selected-window
      (select-window (get-buffer-window "*Help*"))
      (if (eq this-command last-command)

	(error "Can't write to file \"%s\"" leim-list))
    (message "Updating %s ..." leim-list)
    (setq list-buf (find-file-noselect leim-list))

    ;; At first, clean up the file.
    (save-excursion
      (set-buffer list-buf)
      (goto-char 1)

      ;; Insert the correct header.
      (if (looking-at (regexp-quote leim-list-header))
	  (goto-char (match-end 0))

	    (goto-char (point-min))
	    (while (search-forward "(quail-define-package" nil t)
	      (goto-char (match-beginning 0))
	      (condition-case nil
		  (let ((form (read (current-buffer))))
		    (save-excursion
		      (set-buffer list-buf)
		      (insert
		       (format "(register-input-method
 %S %S '%s
 %S %S
 %S)\n"

		 (message "Some part of \"%s\" is broken" dirname)))))
	  (setq pkg-list (cdr pkg-list)))
	(setq quail-dirs (cdr quail-dirs) dirnames (cdr dirnames))))

    ;; At last, write out LEIM list file.
    (save-excursion
      (set-buffer list-buf)
      (setq buffer-file-coding-system 'iso-2022-7bit)
      (save-buffer 0))
    (kill-buffer list-buf)
    (message "Updating %s ... done" leim-list)))


40667:589781f0ee38

      (setq keyboard-type quail-keyboard-layout-type))
  (let ((layout (assoc keyboard-type quail-keyboard-layout-alist)))
    (or layout
	(error "Unknown keyboard type: %s" keyboard-type))
    (with-output-to-temp-buffer "*Help*"
      (with-current-buffer standard-output
	(insert "Keyboard layout (keyboard type: "
		keyboard-type
		")\n")
	(quail-insert-kbd-layout (cdr layout))))))

	      (if input-method-exit-on-first-char
		  (list (aref input-string 0))
		(quail-input-string-to-events input-string))))
	(quail-delete-overlays)
	(if (buffer-live-p quail-guidance-buf)
	    (with-current-buffer quail-guidance-buf
	      (erase-buffer)))
	(quail-hide-guidance-buf)
	(set-buffer-modified-p modified-p)
	;; Run this hook only when the current input method doesn't require
	;; conversion.  When conversion is required, the conversion function

(defun quail-terminate-translation ()
  "Terminate the translation of the current key."
  (setq quail-translating nil)
  (if (buffer-live-p quail-guidance-buf)
      (with-current-buffer quail-guidance-buf
	(erase-buffer))))

(defun quail-select-current ()
  "Accept the currently selected translation."
  (interactive)

(defun quail-setup-completion-buf ()
  "Setup Quail completion buffer."
  (unless (buffer-live-p quail-completion-buf)
    (let ((default-enable-multibyte-characters enable-multibyte-characters))
      (setq quail-completion-buf (get-buffer-create "*Quail Completions*")))
    (with-current-buffer quail-completion-buf
      (setq quail-overlay (make-overlay 1 1))
      (overlay-put quail-overlay 'face 'highlight))))

(defun quail-require-guidance-buf ()
  "Return t iff the current Quail package requires showing guidance buffer."

    (let ((default-enable-multibyte-characters enable-multibyte-characters))
      (or (buffer-live-p quail-guidance-buf)
	  (setq quail-guidance-buf (generate-new-buffer " *Quail-guidance*"))))
    (let ((name (quail-name))
	  (title (quail-title)))
      (with-current-buffer quail-guidance-buf
	;; To show the title of Quail package.
	(setq current-input-method name
	      current-input-method-title title)
	(erase-buffer)
	(or (overlayp quail-overlay)

	      (when (>= height 4)
		;; Here, `split-window' returns a lower window
		;; which is what we wanted.
		(setq win (split-window win (- height 2))))
	      (set-window-buffer win quail-guidance-buf)
	      (with-current-buffer quail-guidance-buf
		(fit-window-to-buffer win nil (window-height win)))))
	(set-window-buffer win quail-guidance-buf)
	(set-minibuffer-window win))
      (setq quail-guidance-win win)))

	      ((null guidance)
	       ;; Show the current input keys.
	       (let ((key quail-current-key))
		 (if (quail-kbd-translate)
		     (setq key (quail-keyseq-translate key)))
		 (with-current-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

  (let* ((key quail-current-key)
	 (map (quail-lookup-key quail-current-key))
	 (current-translations quail-current-translations))
    (if quail-current-translations
	(quail-update-current-translations))
    (with-current-buffer quail-guidance-buf
      (erase-buffer)

      ;; Show the current key.
      (let ((guidance (quail-guidance)))
	(if (listp guidance)

  (quail-setup-completion-buf)
  (let ((win (get-buffer-window quail-completion-buf 'visible))
	(key quail-current-key)
	(map (quail-lookup-key quail-current-key))
	(require-update nil))
    (with-current-buffer quail-completion-buf
      (if (and win
	       (equal key quail-current-key)
	       (eq last-command 'quail-completion))
	  ;; The window for Quail completion buffer has already been
	  ;; shown.  We just scroll it appropriately.

  ;; Give temporary modes such as isearch a chance to turn off.
  (run-hooks 'mouse-leave-buffer-hook)
  (let ((buffer (window-buffer))
        choice
	base-size)
    (with-current-buffer (window-buffer (posn-window (event-start event)))
      (if completion-reference-buffer
	  (setq buffer completion-reference-buffer))
      (setq base-size completion-base-size)
      (save-excursion
	(goto-char (posn-point (event-start event)))

	(insert ?\n))
      (insert ?\n))))

(defun quail-help (&optional package)
  "Show brief description of the current Quail package.
Optional arg PACKAGE specifies the name of alternative Quail
package to describe."
  (interactive)
  (if package
      (setq package (assoc package quail-package-alist))
    (setq package quail-current-package))
  (let ((help-xref-mule-regexp help-xref-mule-regexp-template)
	(default-enable-multibyte-characters enable-multibyte-characters))
    ;; At first, make sure that the help buffer has window.
    (help-setup-xref (list #'quail-help package) (interactive-p))
    (with-output-to-temp-buffer (help-buffer)
      (with-current-buffer standard-output
	(setq quail-current-package package)))
    ;; Then, insert text in the help buffer while paying attention to
    ;; the width of the frame in which the buffer displayed.
    (with-current-buffer (help-buffer)
      (setq buffer-read-only nil)
      (insert "Input method: " (quail-name)
	      " (mode line indicator:"
	      (quail-title)
	      ")\n\n")

	  (quail-help-insert-keymap-description
	   (quail-conversion-keymap)
	   "\
KEY BINDINGS FOR CONVERSION
---------------------------\n"))
      (setq quail-current-package nil)
      ;; Resize the help window again, now that it has all its contents.
      (save-selected-window
 	(select-window (get-buffer-window (current-buffer)))
	(run-hooks 'temp-buffer-show-hook)))))

	  (setq state-msg
		(format "Translating key sequence %S by input method %S.\n"
			quail-current-key (quail-name))
		keymap (quail-translation-keymap)))
	(with-output-to-temp-buffer "*Help*"
	  (with-current-buffer standard-output
	    (insert state-msg)
	    (quail-help-insert-keymap-description
	     keymap
	     "-----------------------\n")
	    ;; Isn't this redundant ?  -stef
	    (help-mode)))))
  (let (scroll-help)
    (save-selected-window
      (select-window (get-buffer-window "*Help*"))
      (if (eq this-command last-command)

	(error "Can't write to file \"%s\"" leim-list))
    (message "Updating %s ..." leim-list)
    (setq list-buf (find-file-noselect leim-list))

    ;; At first, clean up the file.
    (with-current-buffer list-buf
      (goto-char 1)

      ;; Insert the correct header.
      (if (looking-at (regexp-quote leim-list-header))
	  (goto-char (match-end 0))

	    (goto-char (point-min))
	    (while (search-forward "(quail-define-package" nil t)
	      (goto-char (match-beginning 0))
	      (condition-case nil
		  (let ((form (read (current-buffer))))
		    (with-current-buffer list-buf
		      (insert
		       (format "(register-input-method
 %S %S '%s
 %S %S
 %S)\n"

		 (message "Some part of \"%s\" is broken" dirname)))))
	  (setq pkg-list (cdr pkg-list)))
	(setq quail-dirs (cdr quail-dirs) dirnames (cdr dirnames))))

    ;; At last, write out LEIM list file.
    (with-current-buffer list-buf
      (setq buffer-file-coding-system 'iso-2022-7bit)
      (save-buffer 0))
    (kill-buffer list-buf)
    (message "Updating %s ... done" leim-list)))