Commit c8d6d636 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

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

(toplevel): Add completion-list-mode-finish to
temp-buffer-show-hook.
parent 2a52f40e
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).
 
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment