From 7d383292d10b876efec43e77fd51c2665e912688 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 26 Jul 2010 02:43:58 +0200 Subject: [PATCH] * lread.c (unreadpure, mapatoms_1): Make static. --- src/ChangeLog | 4 ++++ src/lread.c | 6 ++---- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index f099fc3437d..3a18722d662 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2010-07-26 Juanma Barranquero + + * lread.c (unreadpure, mapatoms_1): Make static. + 2010-07-25 Juanma Barranquero * terminfo.c (tparam): Fix prototype of tparm. diff --git a/src/lread.c b/src/lread.c index 96108ec4a72..b29971a5f88 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1276,7 +1276,6 @@ Return t if the file exists and loads successfully. */) static Lisp_Object load_unwind (Lisp_Object arg) /* used as unwind-protect function in load */ - { FILE *stream = (FILE *) XSAVE_VALUE (arg)->pointer; if (stream != NULL) @@ -1567,9 +1566,8 @@ build_load_history (Lisp_Object filename, int entire) Vload_history); } -Lisp_Object +static Lisp_Object unreadpure (Lisp_Object junk) /* Used as unwind-protect function in readevalloop */ - { read_pure = 0; return Qnil; @@ -3818,7 +3816,7 @@ map_obarray (Lisp_Object obarray, void (*fn) (Lisp_Object, Lisp_Object), Lisp_Ob } } -void +static void mapatoms_1 (Lisp_Object sym, Lisp_Object function) { call1 (function, sym); -- 2.39.2