# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 986914088 0
# Node ID 76c94d3124d6b30710d830f9293fc45fe31a8b3a
# Parent  bf73da2bd00c539d130c524e26d89adb69326309
(completion-list-mode-finish): New function.
(toplevel): Add completion-list-mode-finish to
temp-buffer-show-hook.

diff -r bf73da2bd00c -r 76c94d3124d6 lisp/simple.el
--- a/lisp/simple.el	Tue Apr 10 14:32:12 2001 +0000
+++ b/lisp/simple.el	Tue Apr 10 14:48:08 2001 +0000
@@ -3720,6 +3720,14 @@
   (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