[Emacs-diffs] Changes to emacs/src/eval.c [lexbind]

[Miles Bader]

Index: emacs/src/eval.c
diff -c emacs/src/eval.c:1.189.2.9 emacs/src/eval.c:1.189.2.10
*** emacs/src/eval.c:1.189.2.9  Tue Jul  6 09:31:29 2004
--- emacs/src/eval.c    Tue Jul  6 09:39:56 2004
***************
*** 1293,1299 ****
  
  The value of the last BODY form is returned from the condition-case.
  See also the function `signal' for more info.
! usage: (condition-case VAR BODYFORM HANDLERS...)  */)
       (args)
       Lisp_Object args;
  {
--- 1293,1299 ----
  
  The value of the last BODY form is returned from the condition-case.
  See also the function `signal' for more info.
! usage: (condition-case VAR BODYFORM &rest HANDLERS)  */)
       (args)
       Lisp_Object args;
  {
***************
*** 1308,1317 ****
    handlers = Fcdr (Fcdr (args));
    CHECK_SYMBOL (var);
  
!   for (val = handlers; ! NILP (val); val = Fcdr (val))
      {
        Lisp_Object tem;
!       tem = Fcar (val);
        if (! (NILP (tem)
             || (CONSP (tem)
                 && (SYMBOLP (XCAR (tem))
--- 1308,1317 ----
    handlers = Fcdr (Fcdr (args));
    CHECK_SYMBOL (var);
  
!   for (val = handlers; CONSP (val); val = XCDR (val))
      {
        Lisp_Object tem;
!       tem = XCAR (val);
        if (! (NILP (tem)
             || (CONSP (tem)
                 && (SYMBOLP (XCAR (tem))