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
4de86b16
Commit
4de86b16
authored
Jun 10, 1992
by
Richard M. Stallman
Browse files
*** empty log message ***
parent
87ef29fd
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
8 additions
and
7 deletions
+8
-7
src/eval.c
src/eval.c
+5
-5
src/lisp.h
src/lisp.h
+3
-2
No files found.
src/eval.c
View file @
4de86b16
...
...
@@ -103,11 +103,11 @@ int max_lisp_eval_depth;
int
debug_on_next_call
;
/* List of conditions (non-nil atom means all) which cause a backtrace
if an error is handled by the command loop's error handler.
if an error is handled by the command loop's error handler.
*/
Lisp_Object
Vstack_trace_on_error
;
/* List of conditions (non-nil atom means all) which enter the debugger
if an error is handled by the command loop's error handler.
if an error is handled by the command loop's error handler.
*/
Lisp_Object
Vdebug_on_error
;
/* Nonzero means enter debugger if a quit signal
...
...
@@ -1139,17 +1139,17 @@ wants_debugger (list, conditions)
return
1
;
}
if
(
N
ULL
(
list
))
if
(
N
ILP
(
list
))
return
0
;
if
(
!
CONSP
(
list
))
return
1
;
looking
=
1
;
while
(
!
N
ULL
(
conditions
))
while
(
!
N
ILP
(
conditions
))
{
Lisp_Object
tem
;
tem
=
Fmemq
(
XCONS
(
conditions
)
->
car
,
list
);
if
(
!
N
ULL
(
tem
))
if
(
!
N
ILP
(
tem
))
{
looking
=
0
;
return
1
;
...
...
src/lisp.h
View file @
4de86b16
...
...
@@ -826,10 +826,11 @@ extern Lisp_Object Qinvalid_function, Qwrong_number_of_arguments, Qno_catch;
extern
Lisp_Object
Qend_of_file
,
Qarith_error
;
extern
Lisp_Object
Qbeginning_of_buffer
,
Qend_of_buffer
,
Qbuffer_read_only
;
extern
Lisp_Object
Qintegerp
,
Qnatnump
,
Qsymbolp
,
Qlistp
,
Qconsp
;
extern
Lisp_Object
Qintegerp
,
Qnumberp
,
Qnatnump
,
Qsymbolp
,
Qlistp
,
Qconsp
;
extern
Lisp_Object
Qstringp
,
Qarrayp
,
Qsequencep
,
Qbufferp
;
extern
Lisp_Object
Qchar_or_string_p
,
Qmarkerp
,
Qvectorp
;
extern
Lisp_Object
Qinteger_or_marker_p
,
Qboundp
,
Qfboundp
;
extern
Lisp_Object
Qinteger_or_marker_p
,
Qnumber_or_marker_p
;
extern
Lisp_Object
Qboundp
,
Qfboundp
;
extern
Lisp_Object
Qcdr
;
#ifdef LISP_FLOAT_TYPE
...
...
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