# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 806292320 0
# Node ID e2831d2f5b099c03e2f644351bceb2c040dc7f58
# Parent  8ba65cbc8abe1e9169fb727931973879b072007b
(syms_of_xmenu): Set up Qdebug_on_next_call.
(set_frame_menubar): Bind it to nil.

diff -r 8ba65cbc8abe -r e2831d2f5b09 src/xmenu.c
--- 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