From 6f24655361095cb1c1d4f900d63185e481ad5845 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 20 Mar 2007 02:21:58 +0000 Subject: [PATCH] (quail-setup-completion-buf): Make the completion buffer read-only. (quail-completion): Adjusted for the above change. Leave the modified flag nil. --- lisp/international/quail.el | 9 ++++++--- 1 file 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))) -- 2.39.5