emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Kim F . Storm
Subject: [Emacs-diffs] Changes to emacs/src/lread.c
Date: Wed, 20 Jul 2005 10:40:35 -0400

Index: emacs/src/lread.c
diff -c emacs/src/lread.c:1.337 emacs/src/lread.c:1.338
*** emacs/src/lread.c:1.337     Wed Jul 20 14:29:00 2005
--- emacs/src/lread.c   Wed Jul 20 14:40:35 2005
***************
*** 953,964 ****
  }
  
  static Lisp_Object
! load_unwind (stream)  /* used as unwind-protect function in load */
!      Lisp_Object stream;
  {
!   struct Lisp_Save_Value *p = XSAVE_VALUE (stream);
! 
!   fclose ((FILE *) p->pointer);
    if (--load_in_progress < 0) load_in_progress = 0;
    return Qnil;
  }
--- 953,964 ----
  }
  
  static Lisp_Object
! load_unwind (arg)  /* used as unwind-protect function in load */
!      Lisp_Object arg;
  {
!   FILE *stream = (FILE *) XSAVE_VALUE (arg)->pointer;
!   if (stream != NULL)
!     fclose (stream);
    if (--load_in_progress < 0) load_in_progress = 0;
    return Qnil;
  }




reply via email to

[Prev in Thread] Current Thread [Next in Thread]