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
d227775c
Commit
d227775c
authored
Feb 07, 1994
by
Richard M. Stallman
Browse files
(internal_condition_case_1): New function.
parent
f1ff6645
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
37 additions
and
0 deletions
+37
-0
src/eval.c
src/eval.c
+37
-0
No files found.
src/eval.c
View file @
d227775c
...
...
@@ -1094,6 +1094,43 @@ internal_condition_case (bfun, handlers, hfun)
return
val
;
}
Lisp_Object
internal_condition_case_1
(
bfun
,
arg
,
handlers
,
hfun
)
Lisp_Object
(
*
bfun
)
();
Lisp_Object
arg
;
Lisp_Object
handlers
;
Lisp_Object
(
*
hfun
)
();
{
Lisp_Object
val
;
struct
catchtag
c
;
struct
handler
h
;
c
.
tag
=
Qnil
;
c
.
val
=
Qnil
;
c
.
backlist
=
backtrace_list
;
c
.
handlerlist
=
handlerlist
;
c
.
lisp_eval_depth
=
lisp_eval_depth
;
c
.
pdlcount
=
specpdl_ptr
-
specpdl
;
c
.
poll_suppress_count
=
poll_suppress_count
;
c
.
gcpro
=
gcprolist
;
if
(
_setjmp
(
c
.
jmp
))
{
return
(
*
hfun
)
(
Fcdr
(
c
.
val
));
}
c
.
next
=
catchlist
;
catchlist
=
&
c
;
h
.
handler
=
handlers
;
h
.
var
=
Qnil
;
h
.
next
=
handlerlist
;
h
.
tag
=
&
c
;
handlerlist
=
&
h
;
val
=
(
*
bfun
)
(
arg
);
catchlist
=
c
.
next
;
handlerlist
=
h
.
next
;
return
val
;
}
static
Lisp_Object
find_handler_clause
();
DEFUN
(
"signal"
,
Fsignal
,
Ssignal
,
2
,
2
,
0
,
...
...
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