Mercurial > emacs

comparison src/xmenu.c @ 12625:e2831d2f5b09

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 a46766b7288a
children eec80ea06395
comparison
equal deleted inserted replaced
12624:8ba65cbc8abe 12625:e2831d2f5b09
79 79
80 #ifndef TRUE 80 #ifndef TRUE
81 #define TRUE 1 81 #define TRUE 1
82 #define FALSE 0 82 #define FALSE 0
83 #endif /* no TRUE */ 83 #endif /* no TRUE */
84
85 Lisp_Object Qdebug_on_next_call;
84 86
85 extern Lisp_Object Qmenu_enable; 87 extern Lisp_Object Qmenu_enable;
86 extern Lisp_Object Qmenu_bar; 88 extern Lisp_Object Qmenu_bar;
87 extern Lisp_Object Qmouse_click, Qevent_kind; 89 extern Lisp_Object Qmouse_click, Qevent_kind;
88 90
1524 int specpdl_count = specpdl_ptr - specpdl; 1526 int specpdl_count = specpdl_ptr - specpdl;
1525 1527
1526 count = inhibit_garbage_collection (); 1528 count = inhibit_garbage_collection ();
1527 1529
1528 specbind (Qinhibit_quit, Qt); 1530 specbind (Qinhibit_quit, Qt);
1531 /* Don't let the debugger step into this code
1532 because it is not reentrant. */
1533 specbind (Qdebug_on_next_call, Qnil);
1529 1534
1530 id = frame_vector_add_frame (f); 1535 id = frame_vector_add_frame (f);
1531 1536
1532 wv = malloc_widget_value (); 1537 wv = malloc_widget_value ();
1533 wv->name = "menubar"; 1538 wv->name = "menubar";
2442 syms_of_xmenu () 2447 syms_of_xmenu ()
2443 { 2448 {
2444 staticpro (&menu_items); 2449 staticpro (&menu_items);
2445 menu_items = Qnil; 2450 menu_items = Qnil;
2446 2451
2452 Qdebug_on_next_call = intern ("debug-on-next-call");
2453 staticpro (&Qdebug_on_next_call);
2454
2447 #ifdef USE_X_TOOLKIT 2455 #ifdef USE_X_TOOLKIT
2448 widget_id_tick = (1<<16); 2456 widget_id_tick = (1<<16);
2449 #endif 2457 #endif
2450 2458
2451 staticpro (&frame_vector); 2459 staticpro (&frame_vector);