1220 |
|
|
1221 |
The value of the last BODY form is returned from the condition-case. |
The value of the last BODY form is returned from the condition-case. |
1222 |
See also the function `signal' for more info. |
See also the function `signal' for more info. |
1223 |
usage: (condition-case VAR BODYFORM HANDLERS...) */) |
usage: (condition-case VAR BODYFORM &rest HANDLERS) */) |
1224 |
(args) |
(args) |
1225 |
Lisp_Object args; |
Lisp_Object args; |
1226 |
{ |
{ |
1235 |
handlers = Fcdr (Fcdr (args)); |
handlers = Fcdr (Fcdr (args)); |
1236 |
CHECK_SYMBOL (var); |
CHECK_SYMBOL (var); |
1237 |
|
|
1238 |
for (val = handlers; ! NILP (val); val = Fcdr (val)) |
for (val = handlers; CONSP (val); val = XCDR (val)) |
1239 |
{ |
{ |
1240 |
Lisp_Object tem; |
Lisp_Object tem; |
1241 |
tem = Fcar (val); |
tem = XCAR (val); |
1242 |
if (! (NILP (tem) |
if (! (NILP (tem) |
1243 |
|| (CONSP (tem) |
|| (CONSP (tem) |
1244 |
&& (SYMBOLP (XCAR (tem)) |
&& (SYMBOLP (XCAR (tem)) |