comparison lisp/international/quail.el @ 35630:f9eed7569e52

(quail-setup-completion-buf): Make the multibyteness of current buffer inherited to Quail completion buffer. (quail-show-guidance-buf): Make the multibyteness of current buffer inherited to Quail guidance buffer. (quail-help): Make the multibyteness of current buffer inherited to Quail help buffer.

35629:7b8fc0d4a790

      )))

;; Setup Quail completion buffer.
(defun quail-setup-completion-buf ()
  (unless (buffer-live-p quail-completion-buf)
    (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))))

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)."
  (when (quail-require-guidance-buf)
    ;; At first, setup a guidance buffer.
    (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.

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))
    ;; 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)))

35630:f9eed7569e52

      )))

;; Setup Quail completion buffer.
(defun quail-setup-completion-buf ()
  (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))))

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)."
  (when (quail-require-guidance-buf)
    ;; At first, setup a 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.

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)))