aboutsummaryrefslogtreecommitdiffstats
path: root/src/eval.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/eval.c')
-rw-r--r--src/eval.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/eval.c b/src/eval.c
index 921a7533a60..e1da1def446 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -1220,7 +1220,7 @@ VAR may be nil; then you do not get access to the signal information.
1220 1220
1221The value of the last BODY form is returned from the condition-case. 1221The value of the last BODY form is returned from the condition-case.
1222See also the function `signal' for more info. 1222See also the function `signal' for more info.
1223usage: (condition-case VAR BODYFORM HANDLERS...) */) 1223usage: (condition-case VAR BODYFORM &rest HANDLERS) */)
1224 (args) 1224 (args)
1225 Lisp_Object args; 1225 Lisp_Object args;
1226{ 1226{
@@ -1235,10 +1235,10 @@ usage: (condition-case VAR BODYFORM HANDLERS...) */)
1235 handlers = Fcdr (Fcdr (args)); 1235 handlers = Fcdr (Fcdr (args));
1236 CHECK_SYMBOL (var); 1236 CHECK_SYMBOL (var);
1237 1237
1238 for (val = handlers; ! NILP (val); val = Fcdr (val)) 1238 for (val = handlers; CONSP (val); val = XCDR (val))
1239 { 1239 {
1240 Lisp_Object tem; 1240 Lisp_Object tem;
1241 tem = Fcar (val); 1241 tem = XCAR (val);
1242 if (! (NILP (tem) 1242 if (! (NILP (tem)
1243 || (CONSP (tem) 1243 || (CONSP (tem)
1244 && (SYMBOLP (XCAR (tem)) 1244 && (SYMBOLP (XCAR (tem))