From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 11 Sep 2002 01:59:33 +0000 (+0000)
Subject: (pop_message_unwind): Renamed from push_message_unwind.
X-Git-Tag: ttn-vms-21-2-B4~13247
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=37d66095580c7ead78a88b6d1ac46edfdb94d5c4;p=emacs.git

(pop_message_unwind): Renamed from push_message_unwind.
---

diff --git a/src/lisp.h b/src/lisp.h
index b1574c3415a..f0ae25fc78a 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2369,7 +2369,8 @@ extern Lisp_Object echo_area_buffer[2];
 extern void check_message_stack P_ ((void));
 extern void setup_echo_area_for_printing P_ ((int));
 extern int push_message P_ ((void));
-extern Lisp_Object push_message_unwind P_ ((Lisp_Object));
+extern Lisp_Object pop_message_unwind P_ ((Lisp_Object));
+extern Lisp_Object restore_message_unwind P_ ((Lisp_Object));
 extern void pop_message P_ ((void));
 extern void restore_message P_ ((void));
 extern Lisp_Object current_message P_ ((void));
diff --git a/src/xdisp.c b/src/xdisp.c
index b6fe751237f..d6f26cbf8c8 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -6842,17 +6842,6 @@ push_message ()
 }
 
 
-/* Handler for record_unwind_protect calling pop_message.  */
-
-Lisp_Object
-push_message_unwind (dummy)
-     Lisp_Object dummy;
-{
-  pop_message ();
-  return Qnil;
-}
-
-
 /* Restore message display from the top of Vmessage_stack.  */
 
 void
@@ -6869,6 +6858,16 @@ restore_message ()
 }
 
 
+/* Handler for record_unwind_protect calling pop_message.  */
+
+Lisp_Object
+pop_message_unwind (dummy)
+     Lisp_Object dummy;
+{
+  pop_message ();
+  return Qnil;
+}
+
 /* Pop the top-most entry off Vmessage_stack.  */
 
 void