Mercurial > emacs
comparison lisp/international/quail.el @ 76616:9d0123cc9c1d
(quail-setup-completion-buf): Make the
completion buffer read-only.
(quail-completion): Adjusted for the above change. Leave the
modified flag nil.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 20 Mar 2007 02:21:58 +0000 |
| parents | e1ae80eb2fcb |
| children | 0ccf5ac2795e c0409ee15cee |
comparison
equal
deleted
inserted
replaced
| 76615:5479380913c9 | 76616:9d0123cc9c1d |
|---|---|
| 1935 "Setup Quail completion buffer." | 1935 "Setup Quail completion buffer." |
| 1936 (unless (buffer-live-p quail-completion-buf) | 1936 (unless (buffer-live-p quail-completion-buf) |
| 1937 (let ((default-enable-multibyte-characters enable-multibyte-characters)) | 1937 (let ((default-enable-multibyte-characters enable-multibyte-characters)) |
| 1938 (setq quail-completion-buf (get-buffer-create "*Quail Completions*"))) | 1938 (setq quail-completion-buf (get-buffer-create "*Quail Completions*"))) |
| 1939 (with-current-buffer quail-completion-buf | 1939 (with-current-buffer quail-completion-buf |
| 1940 (setq buffer-read-only t) | |
| 1940 (setq quail-overlay (make-overlay 1 1)) | 1941 (setq quail-overlay (make-overlay 1 1)) |
| 1941 (overlay-put quail-overlay 'face 'highlight)))) | 1942 (overlay-put quail-overlay 'face 'highlight)))) |
| 1942 | 1943 |
| 1943 (defun quail-require-guidance-buf () | 1944 (defun quail-require-guidance-buf () |
| 1944 "Return t iff the current Quail package requires showing guidance buffer." | 1945 "Return t iff the current Quail package requires showing guidance buffer." |
| 2160 ;; This nil binding is necessary to surely scroll | 2161 ;; This nil binding is necessary to surely scroll |
| 2161 ;; quail-completion-buf. | 2162 ;; quail-completion-buf. |
| 2162 (minibuffer-scroll-window nil)) | 2163 (minibuffer-scroll-window nil)) |
| 2163 (scroll-other-window))) | 2164 (scroll-other-window))) |
| 2164 (setq quail-current-key key) | 2165 (setq quail-current-key key) |
| 2165 (erase-buffer) | 2166 (let ((inhibit-read-only t)) |
| 2166 (insert "Possible completion and corresponding characters are:\n") | 2167 (erase-buffer) |
| 2167 (quail-completion-1 key map 1) | 2168 (insert "Possible completion and corresponding characters are:\n") |
| 2169 (quail-completion-1 key map 1) | |
| 2170 (set-buffer-modified-p nil)) | |
| 2168 (goto-char (point-min)) | 2171 (goto-char (point-min)) |
| 2169 (display-buffer (current-buffer)) | 2172 (display-buffer (current-buffer)) |
| 2170 (setq require-update t))) | 2173 (setq require-update t))) |
| 2171 (if require-update | 2174 (if require-update |
| 2172 (quail-update-guidance))) | 2175 (quail-update-guidance))) |