Make identifiers static if they are not used in other modules.

* data.c (Qcompiled_function, Qframe, Qvector):
* image.c (QimageMagick, Qsvg):
* minibuf.c (Qmetadata):
* window.c (resize_window_check, resize_root_window): Now static.
* window.h (resize_window_check, resize_root_window): Remove decls.

diff --git a/src/ChangeLog b/src/ChangeLog
index b0a3606ee5a2b1b33432c57ab13a4a2cac5a2701..eb0d744f50fa776379c014e4f3e2b45e5f74f4fc 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,12 @@
 2011-06-10  Paul Eggert  <eggert@cs.ucla.edu>
 
+       Make identifiers static if they are not used in other modules.
+       * data.c (Qcompiled_function, Qframe, Qvector):
+       * image.c (QimageMagick, Qsvg):
+       * minibuf.c (Qmetadata):
+       * window.c (resize_window_check, resize_root_window): Now static.
+       * window.h (resize_window_check, resize_root_window): Remove decls.
+
        * window.c: Fix minor problems reported by GCC 4.6.0.
        (window_deletion_count, delete_deletable_window): Remove; unused.
        (window_body_lines): Now static.

diff --git a/src/data.c b/src/data.c
index a41ffe7a1f6fd091a0e8e1201b3a3e7d82517eed..57d7753e39331aaff58a498e95ffc303f0c1da30 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -90,7 +90,8 @@ static Lisp_Object Qsymbol, Qstring, Qcons, Qmarker, Qoverlay;
 Lisp_Object Qwindow;
 static Lisp_Object Qfloat, Qwindow_configuration;
 static Lisp_Object Qprocess;
-Lisp_Object Qcompiled_function, Qbuffer, Qframe, Qvector;
+static Lisp_Object Qcompiled_function, Qframe, Qvector;
+Lisp_Object Qbuffer;
 static Lisp_Object Qchar_table, Qbool_vector, Qhash_table;
 static Lisp_Object Qsubrp, Qmany, Qunevalled;
 Lisp_Object Qfont_spec, Qfont_entity, Qfont_object;

diff --git a/src/image.c b/src/image.c
index 3d1724492a0f3cac3000bd1aaa4dbc321ec3f088..8169a9098d8002e8bc8916b3effe71b46d5d14f6 100644 (file)
--- a/src/image.c
+++ b/src/image.c
@@ -7365,7 +7365,7 @@ gif_load (struct frame *f, struct image *img)
 ***********************************************************************/
 #if defined (HAVE_IMAGEMAGICK)
 
-Lisp_Object Qimagemagick;
+static Lisp_Object Qimagemagick;
 
 static int imagemagick_image_p (Lisp_Object);
 static int imagemagick_load (struct frame *, struct image *);
@@ -7884,7 +7884,7 @@ static int svg_load_image (struct frame *, struct image *,
 
 /* The symbol `svg' identifying images of this type. */
 
-Lisp_Object Qsvg;
+static Lisp_Object Qsvg;
 
 /* Indices of image specification fields in svg_format, below.  */
 

diff --git a/src/minibuf.c b/src/minibuf.c
index 8f1987298b31871f1d57faa9f055c6c8db8391a8..1b555035cfe560109a4e7fde6f37e48db24db2ed 100644 (file)
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -1895,7 +1895,7 @@ the values STRING, PREDICATE and `lambda'.  */)
     return Qt;
 }
 
-Lisp_Object Qmetadata;
+static Lisp_Object Qmetadata;
 extern Lisp_Object Qbuffer;
 
 DEFUN ("internal-complete-buffer", Finternal_complete_buffer, Sinternal_complete_buffer, 3, 3, 0,

diff --git a/src/window.c b/src/window.c
index 3e43d8386b6612067079a56c5b7d3d6581301f06..7a026b3a1c714120328a14ed2ef779fab6e93e41 100644 (file)
--- a/src/window.c
+++ b/src/window.c
@@ -82,6 +82,7 @@ static int foreach_window_1 (struct window *,
                              int (* fn) (struct window *, void *),
                              void *);
 static Lisp_Object window_list_1 (Lisp_Object, Lisp_Object, Lisp_Object);
+static int resize_window_check (struct window *, int);
 static void resize_window_apply (struct window *, int);
 static Lisp_Object select_window (Lisp_Object, Lisp_Object, int);
 
@@ -2632,7 +2633,7 @@ selected frame and no others.  */)
     return Qnil;
 }
 
-Lisp_Object
+static Lisp_Object
 resize_root_window (Lisp_Object window, Lisp_Object delta, Lisp_Object horizontal, Lisp_Object ignore)
 {
   return call4 (Qresize_root_window, window, delta, horizontal, ignore);
@@ -3522,7 +3523,7 @@ Note: This function does not operate on any subwindows of WINDOW.  */)
    Note: This function does not check any of `window-fixed-size-p',
    `window-min-height' or `window-min-width'.  It does check that window
    sizes do not drop below one line (two columns). */
-int
+static int
 resize_window_check (struct window *w, int horflag)
 {
   struct window *c;

diff --git a/src/window.h b/src/window.h
index 87d0dc8fb23f2ce4edbd5cb7f7ab951fae9b1e7d..1ebc99055a51c86593fe22f35f122f62f25117bf 100644 (file)
--- a/src/window.h
+++ b/src/window.h
@@ -924,9 +924,6 @@ extern void init_window (void);
 extern void syms_of_window (void);
 extern void keys_of_window (void);
 extern void resize_frame_windows (struct frame *, int, int);
-extern int resize_window_check (struct window *, int);
-extern Lisp_Object resize_root_window (Lisp_Object, Lisp_Object, Lisp_Object,
-                                      Lisp_Object);
 
 
 #endif /* not WINDOW_H_INCLUDED */