mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source 
completion buffer read-only.
(quail-completion): Adjusted for the above change.  Leave the
modified flag nil.
This commit is contained in:
Kenichi Handa 2007-03-20 02:21:58 +00:00
parent 85410b02f0
commit 6f24655361
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/international/quail.el
View File

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