[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/quail.el,v
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/quail.el,v |
Date: |
Tue, 20 Mar 2007 02:21:58 +0000 |
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/international/quail.el,v,
Kenichi Handa <=