changeset 12625:e2831d2f5b09

(syms_of_xmenu): Set up Qdebug_on_next_call. (set_frame_menubar): Bind it to nil.
author Richard M. Stallman <rms@gnu.org>
date Fri, 21 Jul 1995 02:05:20 +0000
parents 8ba65cbc8abe
children f9a5365b158a
files src/xmenu.c
diffstat 1 files changed, 8 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/xmenu.c	Fri Jul 21 01:43:21 1995 +0000
+++ b/src/xmenu.c	Fri Jul 21 02:05:20 1995 +0000
@@ -82,6 +82,8 @@
 #define FALSE 0
 #endif /* no TRUE */
 
+Lisp_Object Qdebug_on_next_call;
+
 extern Lisp_Object Qmenu_enable;
 extern Lisp_Object Qmenu_bar;
 extern Lisp_Object Qmouse_click, Qevent_kind;
@@ -1526,6 +1528,9 @@
   count = inhibit_garbage_collection ();
 
   specbind (Qinhibit_quit, Qt);
+  /* Don't let the debugger step into this code
+     because it is not reentrant.  */
+  specbind (Qdebug_on_next_call, Qnil);
 
   id = frame_vector_add_frame (f);
 
@@ -2444,6 +2449,9 @@
   staticpro (&menu_items);
   menu_items = Qnil;
 
+  Qdebug_on_next_call = intern ("debug-on-next-call");
+  staticpro (&Qdebug_on_next_call);
+
 #ifdef USE_X_TOOLKIT
   widget_id_tick = (1<<16);	
 #endif