# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 882668868 0
# Node ID 1fe822fa93e614c793ff1b65763cdc0fb919531f
# Parent  77ed0446c90ae714bf67e7043d02f15137bb254a
(completion-setup-hook): Add definition.

diff -r 77ed0446c90a -r 1fe822fa93e6 lisp/simple.el
--- a/lisp/simple.el	Sun Dec 21 01:46:29 1997 +0000
+++ b/lisp/simple.el	Sun Dec 21 01:47:48 1997 +0000
@@ -3533,6 +3533,12 @@
 Point is at the end of the completion in the completion list buffer.
 If this function moves point, it can alter the end of that completion.")
 
+(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
+command to display the completion list buffer was run.
+The completion list buffer is available as the value of `standard-output'.")
+
 ;; This function goes in completion-setup-hook, so that it is called
 ;; after the text of the completion list buffer is written.