(push_message_unwind): New function.

1 files changed, 12 insertions, 1 deletions

diff --git a/src/xdisp.c b/src/xdisp.c
index d4f25661e08..367408dbdba 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -1,5 +1,5 @@
 /* Display generation from window structure and buffer text.
-   Copyright (C) 1985, 86, 87, 88, 93, 94, 95, 97, 98, 99, 2000
+   Copyright (C) 1985, 86, 87, 88, 93, 94, 95, 97, 98, 99, 2000, 2001
    Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
@@ -6363,6 +6363,17 @@ 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