From 098ec84ae295902dc37ea0fda5dca9900b652a5a Mon Sep 17 00:00:00 2001
From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 9 Jan 2001 13:45:38 +0000
Subject: [PATCH] (push_message_unwind): New function.

---
 src/xdisp.c | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

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
-- 
2.39.2