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

(completion-list-mode-finish): New function.

Browse Source 
(toplevel): Add completion-list-mode-finish to
temp-buffer-show-hook.
This commit is contained in:
Gerd Moellmann 2001-04-10 14:48:42 +00:00
parent 2a52f40ea4
commit c8d6d636a8
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,5 +1,9 @@
2001-04-10 Gerd Moellmann <gerd@gnu.org>
* simple.el (completion-list-mode-finish): New function.
(toplevel): Add completion-list-mode-finish to
temp-buffer-show-hook.
* language/european.el ("Polish"): Change sample text.
From: jsbien@mimuw.edu.pl (Janusz S. Bie,Bq(B).

8
lisp/simple.el
View File

@ -3720,6 +3720,14 @@ Use \\<completion-list-mode-map>\\[mouse-choose-completion] to select one\
(setq completion-base-size nil)
(run-hooks 'completion-list-mode-hook))
(defun completion-list-mode-finish ()
"Finish setup of the completions buffer.
Called from `temp-buffer-show-hook'."
(when (eq major-mode 'completion-list-mode)
(toggle-read-only 1)))
(add-hook 'temp-buffer-show-hook 'completion-list-mode-finish)
(defvar completion-setup-hook nil
"Normal hook run at the end of setting up a completion list buffer.
When this hook is run, the current buffer is the one in which the