Mercurial > emacs

changeset 30917:469d242e5f72

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Prototype readevalloop, load_unwind, load_descriptor_unwind. (unreadpure): Give it an arg.
author Dave Love <fx@gnu.org>
date Thu, 17 Aug 2000 14:11:00 +0000
parents d4a0bd8a25a3
children 0bc07afc3c0d
files src/lread.c
diffstat 1 files changed, 7 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/src/lread.c	Thu Aug 17 14:07:15 2000 +0000
+++ b/src/lread.c	Thu Aug 17 14:11:00 2000 +0000
@@ -530,9 +530,11 @@
   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 @@
 }
 
 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;