changeset 35171:bc4b6bd7103e

(Fexecute_extended_command): Use a record_unwind_protect to ensure that pop_message is called.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 09 Jan 2001 13:44:36 +0000
parents a9b677239421
children fe5b376c2e54
files src/keyboard.c
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/keyboard.c	Tue Jan 09 13:43:43 2001 +0000
+++ b/src/keyboard.c	Tue Jan 09 13:44:36 2001 +0000
@@ -9070,6 +9070,8 @@
     }
   return Qnil;
 }
+
+
 
 DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_command,
   1, 1, "P",
@@ -9192,7 +9194,9 @@
 	  Lisp_Object binding;
 	  char *newmessage;
 	  int message_p = push_message ();
-
+	  int count = BINDING_STACK_SIZE ();
+
+	  record_unwind_protect (push_message_unwind, Qnil);
 	  binding = Fkey_description (bindings);
 
 	  newmessage
@@ -9211,7 +9215,7 @@
 	      && message_p)
 	    restore_message ();
 
-	  pop_message ();
+	  unbind_to (count, Qnil);
 	}
     }