From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 21 Jun 1994 20:49:12 +0000 (+0000)
Subject: (read_minibuf_unwind): Run Qminibuffer_exit_hook here.
X-Git-Tag: emacs-19.34~7852
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0a1dd1c57ac09175dff0b38f15faef6540d6f83f;p=emacs.git

(read_minibuf_unwind): Run Qminibuffer_exit_hook here.
(read_minibuf): Not here.
---

diff --git a/src/minibuf.c b/src/minibuf.c
index ea83d05cba4..eb38fe0a895 100644
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -252,10 +252,6 @@ read_minibuf (map, initial, prompt, backup_n, expflag, histvar, histpos)
 /* ??? MCC did redraw_screen here if switching screens.  */
   recursive_edit_1 ();
 
-  if (!NILP (Vminibuffer_exit_hook) && !EQ (Vminibuffer_exit_hook, Qunbound)
-      && !NILP (Vrun_hooks))
-    call1 (Vrun_hooks, Qminibuffer_exit_hook);
-
   /* If cursor is on the minibuffer line,
      show the user we have exited by putting it in column 0.  */
   if ((FRAME_CURSOR_Y (selected_frame)
@@ -353,6 +349,12 @@ void
 read_minibuf_unwind (data)
      Lisp_Object data;
 {
+  /* We are exiting the minibuffer one way or the other,
+     so run the hook.  */
+  if (!NILP (Vminibuffer_exit_hook) && !EQ (Vminibuffer_exit_hook, Qunbound)
+      && !NILP (Vrun_hooks))
+    call1 (Vrun_hooks, Qminibuffer_exit_hook);
+
   /* Erase the minibuffer we were using at this level.  */
   Fset_buffer (XWINDOW (minibuf_window)->buffer);