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

(toplevel): Add completion-list-mode-finish to
temp-buffer-show-hook.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index abe4be937b202c474e218b75d3a43fae38ce6186..c41630731d4f4178ace1519f42a88f1955cf9d79 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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\e,Bq\e(B).
 

diff --git a/lisp/simple.el b/lisp/simple.el
index 9d2d78a8f44d4075b0b3b3820b502ae0d2a357b8..367bc2465fe600b0e202acd14bbd007911f9ab00 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -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