Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
0314aacb
Commit
0314aacb
authored
Jul 21, 1995
by
Richard M. Stallman
Browse files
(syms_of_xmenu): Set up Qdebug_on_next_call.
(set_frame_menubar): Bind it to nil.
parent
3a0c4755
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
0 deletions
+8
-0
src/xmenu.c
src/xmenu.c
+8
-0
No files found.
src/xmenu.c
View file @
0314aacb
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment