# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1174357318 0
# Node ID 9d0123cc9c1d3205a88d5986197a5c5ceed33c9c
# Parent  5479380913c9e36c2dd41acff09c421aa3a5de6e
(quail-setup-completion-buf): Make the
completion buffer read-only.
(quail-completion): Adjusted for the above change.  Leave the
modified flag nil.

diff -r 5479380913c9 -r 9d0123cc9c1d lisp/international/quail.el
--- 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)))