/[emacs]/emacs/src/eval.c
ViewVC logotype

Diff of /emacs/src/eval.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.216 by monnier, Fri May 28 20:54:39 2004 UTC revision 1.217 by monnier, Tue Jun 1 23:21:55 2004 UTC
# Line 1220  VAR may be nil; then you do not get acce Line 1220  VAR may be nil; then you do not get acce
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  {  {
# Line 1235  usage: (condition-case VAR BODYFORM HAND Line 1235  usage: (condition-case VAR BODYFORM HAND
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))

Legend:
Removed from v.1.216  
changed lines
  Added in v.1.217

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26