* alloc.c, lisp.h (make_pure_vector): Now static.

diff --git a/src/ChangeLog b/src/ChangeLog
index 0c050535d8ef3d3d3090c9a371d1639eae7432a1..fabbcbef40d44d5c92cdce05c80c100051cbd422 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2012-05-30  Paul Eggert  <eggert@cs.ucla.edu>
+
+       * alloc.c, lisp.h (make_pure_vector): Now static.
+
 2012-05-30  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * eval.c (Fdefun, Fdefmacro, Vmacro_declaration_function):

diff --git a/src/alloc.c b/src/alloc.c
index 05d2db274da1f695884cf7f68a6c301ce50587b0..cf7778c05f656ad06b65e30e367da3bd6a66a973 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -273,6 +273,7 @@ static Lisp_Object Qpost_gc_hook;
 static void mark_buffer (Lisp_Object);
 static void mark_terminals (void);
 static void gc_sweep (void);
+static Lisp_Object make_pure_vector (ptrdiff_t);
 static void mark_glyph_matrix (struct glyph_matrix *);
 static void mark_face_cache (struct face_cache *);
 
@@ -4937,7 +4938,7 @@ make_pure_float (double num)
 /* Return a vector with room for LEN Lisp_Objects allocated from
    pure space.  */
 
-Lisp_Object
+static Lisp_Object
 make_pure_vector (ptrdiff_t len)
 {
   Lisp_Object new;

diff --git a/src/lisp.h b/src/lisp.h
index 544277db3b5f0760a7dbbc3d6e87b7a2cb0f56cd..a05e3075ec74c9f60c59a7dd9e8ca941e2756239 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2871,7 +2871,6 @@ EXFUN (Fpurecopy, 1);
 extern Lisp_Object make_pure_string (const char *, ptrdiff_t, ptrdiff_t, int);
 extern Lisp_Object make_pure_c_string (const char *data);
 extern Lisp_Object pure_cons (Lisp_Object, Lisp_Object);
-extern Lisp_Object make_pure_vector (ptrdiff_t);
 EXFUN (Fgarbage_collect, 0);
 EXFUN (Fmake_byte_code, MANY);
 EXFUN (Fmake_bool_vector, 2);