mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-09 05:01:02 -08:00
Code Issues Projects Releases Wiki Activity

Prototype readevalloop, load_unwind,

Browse source 
load_descriptor_unwind.
(unreadpure): Give it an arg.
This commit is contained in:
Dave Love 2000-08-17 14:11:00 +00:00
parent 3fb21e7ab8
commit 232ccf275f
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/lread.c
View file

@ -530,9 +530,11 @@ DEFUN ("get-file-char", Fget_file_char, Sget_file_char, 0, 0, 0,
return val;
}
static void readevalloop ();
static Lisp_Object load_unwind ();
static Lisp_Object load_descriptor_unwind ();
static void readevalloop P_ ((Lisp_Object, FILE*, Lisp_Object,
Lisp_Object (*) (), int,
Lisp_Object, Lisp_Object));
static Lisp_Object load_unwind P_ ((Lisp_Object));
static Lisp_Object load_descriptor_unwind P_ ((Lisp_Object));
/* Non-zero means load dangerous compiled Lisp files. */
@ -1088,7 +1090,8 @@ build_load_history (stream, source)
}
Lisp_Object
unreadpure () /* Used as unwind-protect function in readevalloop */
unreadpure (junk) /* Used as unwind-protect function in readevalloop */
Lisp_Object junk;
{
read_pure = 0;
return Qnil;