Commit 0314aacb authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(syms_of_xmenu): Set up Qdebug_on_next_call.

(set_frame_menubar): Bind it to nil.
parent 3a0c4755
......@@ -82,6 +82,8 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
#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 @@ set_frame_menubar (f, first_time)
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 @@ syms_of_xmenu ()
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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment