Mercurial > emacs

comparison lisp/international/quail.el @ 92784:a7f3b0c8e4a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(quail-setup-completion-buf): Use set-buffer-multibyte rather than setting default-enable-multibyte-characters.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 12 Mar 2008 20:58:32 +0000
parents 606f2d163a64
children ca94bdbd0b62
comparison
equal deleted inserted replaced
92783:b8de2f698e11 92784:a7f3b0c8e4a5
1925 (cons (cons 'top newtop) fparam))))) 1925 (cons (cons 'top newtop) fparam)))))
1926 1926
1927 (defun quail-setup-completion-buf () 1927 (defun quail-setup-completion-buf ()
1928 "Setup Quail completion buffer." 1928 "Setup Quail completion buffer."
1929 (unless (buffer-live-p quail-completion-buf) 1929 (unless (buffer-live-p quail-completion-buf)
1930 (let ((default-enable-multibyte-characters enable-multibyte-characters)) 1930 (let ((mb enable-multibyte-characters))
1931 (setq quail-completion-buf (get-buffer-create "*Quail Completions*"))) 1931 (setq quail-completion-buf (get-buffer-create "*Quail Completions*"))
1932 (with-current-buffer quail-completion-buf 1932 (with-current-buffer quail-completion-buf
1933 (setq buffer-read-only t) 1933 (set-buffer-multibyte mb)
1934 (setq quail-overlay (make-overlay 1 1)) 1934 (setq buffer-read-only t)
1935 (overlay-put quail-overlay 'face 'highlight)))) 1935 (setq quail-overlay (make-overlay (point-min) (point-min)))
1936 (overlay-put quail-overlay 'face 'highlight)))))
1936 1937
1937 (defun quail-require-guidance-buf () 1938 (defun quail-require-guidance-buf ()
1938 "Return t if the current Quail package requires showing guidance buffer." 1939 "Return t if the current Quail package requires showing guidance buffer."
1939 (and input-method-verbose-flag 1940 (and input-method-verbose-flag
1940 (if (eq input-method-verbose-flag 'default) 1941 (if (eq input-method-verbose-flag 'default)
1984 (setq quail-guidance-frame 1985 (setq quail-guidance-frame
1985 (quail-make-guidance-frame))) 1986 (quail-make-guidance-frame)))
1986 (or (buffer-live-p quail-guidance-buf) 1987 (or (buffer-live-p quail-guidance-buf)
1987 (setq quail-guidance-buf 1988 (setq quail-guidance-buf
1988 (get-buffer-create " *Quail-guidance*"))) 1989 (get-buffer-create " *Quail-guidance*")))
1989 (save-excursion 1990 (with-current-buffer quail-guidance-buf
1990 (set-buffer quail-guidance-buf)
1991 (erase-buffer) 1991 (erase-buffer)
1992 (setq cursor-type nil) 1992 (setq cursor-type nil)
1993 (insert guidance)) 1993 (insert guidance))
1994 (set-window-buffer (frame-root-window quail-guidance-frame) 1994 (set-window-buffer (frame-root-window quail-guidance-frame)
1995 quail-guidance-buf) 1995 quail-guidance-buf)
3040 (global-set-key [quail-advice] 'quail-advice) 3040 (global-set-key [quail-advice] 'quail-advice)
3041 3041
3042 ;; 3042 ;;
3043 (provide 'quail) 3043 (provide 'quail)
3044 3044
3045 ;;; arch-tag: 46d7db54-5467-42c4-a2a9-53ca90a1e886 3045 ;; arch-tag: 46d7db54-5467-42c4-a2a9-53ca90a1e886
3046 ;;; quail.el ends here 3046 ;;; quail.el ends here