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

Diff of /emacs/src/lread.c

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

revision 1.337 by kfstorm, Wed Jul 20 14:29:00 2005 UTC revision 1.338 by kfstorm, Wed Jul 20 14:40:35 2005 UTC
# Line 953  Return t if file exists.  */) Line 953  Return t if file exists.  */)
953  }  }
954    
955  static Lisp_Object  static Lisp_Object
956  load_unwind (stream)  /* used as unwind-protect function in load */  load_unwind (arg)  /* used as unwind-protect function in load */
957       Lisp_Object stream;       Lisp_Object arg;
958  {  {
959    struct Lisp_Save_Value *p = XSAVE_VALUE (stream);    FILE *stream = (FILE *) XSAVE_VALUE (arg)->pointer;
960      if (stream != NULL)
961    fclose ((FILE *) p->pointer);      fclose (stream);
962    if (--load_in_progress < 0) load_in_progress = 0;    if (--load_in_progress < 0) load_in_progress = 0;
963    return Qnil;    return Qnil;
964  }  }

Legend:
Removed from v.1.337  
changed lines
  Added in v.1.338

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