(quail-setup-completion-buf): Make the

completion buffer read-only.
(quail-completion): Adjusted for the above change.  Leave the
modified flag nil.

diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index 340c035ca429384ed86fcbd74951fbdfb8bf391e..43251b3721e33ed6bc927cc8aaa1a050f929b94a 100644 (file)
--- 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)))