Mercurial > emacs
changeset 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 | 5479380913c9 |
| children | 60bdcd690457 |
| files | lisp/international/quail.el |
| diffstat | 1 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/quail.el Tue Mar 20 01:01:04 2007 +0000 +++ b/lisp/international/quail.el Tue Mar 20 02:21:58 2007 +0000 @@ -1937,6 +1937,7 @@ (let ((default-enable-multibyte-characters enable-multibyte-characters)) (setq quail-completion-buf (get-buffer-create "*Quail Completions*"))) (with-current-buffer quail-completion-buf + (setq buffer-read-only t) (setq quail-overlay (make-overlay 1 1)) (overlay-put quail-overlay 'face 'highlight)))) @@ -2162,9 +2163,11 @@ (minibuffer-scroll-window nil)) (scroll-other-window))) (setq quail-current-key key) - (erase-buffer) - (insert "Possible completion and corresponding characters are:\n") - (quail-completion-1 key map 1) + (let ((inhibit-read-only t)) + (erase-buffer) + (insert "Possible completion and corresponding characters are:\n") + (quail-completion-1 key map 1) + (set-buffer-modified-p nil)) (goto-char (point-min)) (display-buffer (current-buffer)) (setq require-update t)))