diff options
| author | Kenichi Handa <handa@m17n.org> | 2007-03-20 02:21:58 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2007-03-20 02:21:58 +0000 |
| commit | 6f24655361095cb1c1d4f900d63185e481ad5845 (patch) | |
| tree | 2b23a9a6ff94db83f88f0de88b4983a5324bb0c3 /lisp/international | |
| parent | 85410b02f081feb23435ab6b35128bdd60a4f75f (diff) | |
| download | emacs-6f24655361095cb1c1d4f900d63185e481ad5845.tar.gz | |
(quail-setup-completion-buf): Make the
completion buffer read-only.
(quail-completion): Adjusted for the above change. Leave the
modified flag nil.
Diffstat (limited to 'lisp/international')
| -rw-r--r-- | lisp/international/quail.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 340c035ca42..43251b3721e 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el @@ -1937,6 +1937,7 @@ Remaining args are for FUNC." (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 @@ are shown (at most to the depth specified `quail-completion-max-depth')." (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))) |