* src/alloc.c (free_save_value): Now static.

diff --git a/src/ChangeLog b/src/ChangeLog
index 4574d3fe23d2020ee5e7edc0a9ad6900e0de7309..115b8d429155f7798883bfc18fa8b5c2df898dd5 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2013-01-15  Paul Eggert  <eggert@cs.ucla.edu>
+
+       * alloc.c (free_save_value): Now static.
+
 2013-01-15  Dmitry Antipov  <dmantipov@yandex.ru>
 
        * keymap.c (map_keymap_internal): Use format_save_value.

diff --git a/src/alloc.c b/src/alloc.c
index b83b621bc7df0ea567c9a380efe8162a5c9e1aa0..7275a01bb73e7983ff1b6d5ba44bb39ed1b1640f 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -209,6 +209,7 @@ Lisp_Object Qchar_table_extra_slots;
 
 static Lisp_Object Qpost_gc_hook;
 
+static void free_save_value (Lisp_Object);
 static void mark_terminals (void);
 static void gc_sweep (void);
 static Lisp_Object make_pure_vector (ptrdiff_t);
@@ -3417,7 +3418,7 @@ make_save_value (void *pointer, ptrdiff_t integer)
 /* Free a Lisp_Save_Value object.  Do not use this function
    if SAVE contains pointer other than returned by xmalloc.  */
 
-void
+static void
 free_save_value (Lisp_Object save)
 {
   xfree (XSAVE_POINTER (save, 0));

diff --git a/src/lisp.h b/src/lisp.h
index 1ff8f83270bfc5c59ee0e282e76777a93e7099f2..40e4821bc1098b02c9c6ecb8ccda881ec28effa2 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -3020,7 +3020,6 @@ extern void display_malloc_warning (void);
 extern ptrdiff_t inhibit_garbage_collection (void);
 extern Lisp_Object format_save_value (const char *, ...);
 extern Lisp_Object make_save_value (void *, ptrdiff_t);
-extern void free_save_value (Lisp_Object);
 extern Lisp_Object build_overlay (Lisp_Object, Lisp_Object, Lisp_Object);
 extern void free_marker (Lisp_Object);
 extern void free_cons (struct Lisp_Cons *);