From: Paul Eggert <eggert@cs.ucla.edu>
Date: Wed, 30 May 2012 07:59:44 +0000 (-0700)
Subject: * alloc.c, lisp.h (make_pure_vector): Now static.
X-Git-Tag: emacs-24.2.90~471^2~6^2~48
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=72cb32cf2f0938dd7dc733eed77b1ed1e497b053;p=emacs.git

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

diff --git a/src/ChangeLog b/src/ChangeLog
index 0c050535d8e..fabbcbef40d 100644
--- 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 05d2db274da..cf7778c05f6 100644
--- 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 544277db3b5..a05e3075ec7 100644
--- 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);