# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 762650317 0
# Node ID 4a1c5b2c005dfeee9cf0919bce4596bfcccff9ee
# Parent  5a40bc311e2f4faa64920192e6f83c456600c259
(Fdisplay_completion_list): Restore original buffer
before running completion-setup-hook.

diff -r 5a40bc311e2f -r 4a1c5b2c005d src/minibuf.c
--- a/src/minibuf.c	Wed Mar 02 23:09:40 1994 +0000
+++ b/src/minibuf.c	Wed Mar 02 23:18:37 1994 +0000
@@ -1294,7 +1294,10 @@
        1, 1, 0,
   "Display the list of completions, COMPLETIONS, using `standard-output'.\n\
 Each element may be just a symbol or string\n\
-or may be a list of two strings to be printed as if concatenated.")
+or may be a list of two strings to be printed as if concatenated.\n\
+`standard-output' must be a buffer.\n\
+At the end, run the normal hook `completion-setup-hook'.\n\
+It can find the completion buffer in `standard-output'.")
   (completions)
      Lisp_Object completions;
 {
@@ -1365,11 +1368,12 @@
 	}
     }
 
+  if (XTYPE (Vstandard_output) == Lisp_Buffer)
+    set_buffer_internal (old);
+
   if (!NILP (Vrun_hooks))
     call1 (Vrun_hooks, intern ("completion-setup-hook"));
 
-  if (XTYPE (Vstandard_output) == Lisp_Buffer)
-    set_buffer_internal (old);
   return Qnil;
 }