[Emacs-diffs] Changes to emacs/lisp/international/quail.el,v

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   07/03/20 02:21:58

Index: quail.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/quail.el,v
retrieving revision 1.154
retrieving revision 1.155
diff -u -b -r1.154 -r1.155
--- quail.el    2 Feb 2007 11:43:31 -0000       1.154
+++ quail.el    20 Mar 2007 02:21:58 -0000      1.155
@@ -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)
+       (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)))