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

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

2 files changed, 12 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index abe4be937b2..c41630731d4 100644
--- 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,Bq(B).
 
diff --git a/lisp/simple.el b/lisp/simple.el
index 9d2d78a8f44..367bc2465fe 100644
--- 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