From: Kenichi Handa <handa@m17n.org>
Date: Tue, 20 Mar 2007 02:21:58 +0000 (+0000)
Subject: (quail-setup-completion-buf): Make the
X-Git-Tag: emacs-pretest-22.0.97~282
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6f24655361095cb1c1d4f900d63185e481ad5845;p=emacs.git

(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 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)))