[Top][All Lists]
[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;
}