From 37d66095580c7ead78a88b6d1ac46edfdb94d5c4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 11 Sep 2002 01:59:33 +0000 Subject: (pop_message_unwind): Renamed from push_message_unwind. --- src/lisp.h | 3 ++- src/xdisp.c | 21 ++++++++++----------- 2 files changed, 12 insertions(+), 12 deletions(-) diff --git a/src/lisp.h b/src/lisp.h index b1574c3415..f0ae25fc78 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 b6fe751237..d6f26cbf8c 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 -- cgit v1.2.3