Remove empty and useless init functions.

* lisp.h (init_character_once, init_fns, init_image)
(init_filelock, init_sound): Remove prototype.
* character.c (init_character_once): Remove.
* filelock.c (init_filelock): Likewise.
* fns.c (init_fns): Likewise.
* image.c (init_image): Likewise.
* sound.c (init_sound): Likewise.
* emacs.c (main): Adjust accordingly.

8 files changed, 12 insertions, 46 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 495ffebbe63..44001546570 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,17 @@
 2012-07-16  Dmitry Antipov  <dmantipov@yandex.ru>
 
+        Remove empty and useless init functions.
+        * lisp.h (init_character_once, init_fns, init_image)
+        (init_filelock, init_sound): Remove prototype.
+        * character.c (init_character_once): Remove.
+        * filelock.c (init_filelock): Likewise.
+        * fns.c (init_fns): Likewise.
+        * image.c (init_image): Likewise.
+        * sound.c (init_sound): Likewise.
+        * emacs.c (main): Adjust accordingly.
+
+2012-07-16  Dmitry Antipov  <dmantipov@yandex.ru>
+
         * gtkutil.h: Tiny cleanups.
         (use_old_gtk_file_dialog): Remove useless declaration.
         (xg_uses_old_file_dialog): Add suggested const attribute.
diff --git a/src/character.c b/src/character.c
index 62454fe7f1c..f4c74a93d39 100644
--- a/src/character.c
+++ b/src/character.c
@@ -1010,12 +1010,6 @@ character is not ASCII nor 8-bit character, an error is signaled.  */)
   return make_number (c);
 }
 
-
-void
-init_character_once (void)
-{
-}
-
 #ifdef emacs
 
 void
diff --git a/src/emacs.c b/src/emacs.c
index db01b13c32d..2893b5f205c 100644
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -1254,7 +1254,6 @@ Using an Emacs configured with --with-x-toolkit=lucid does not have this problem
       init_alloc_once ();
       init_obarray ();
       init_eval_once ();
-      init_character_once ();
       init_charset_once ();
       init_coding_once ();
       init_syntax_once ();      /* Create standard syntax table.  */
@@ -1307,9 +1306,6 @@ Using an Emacs configured with --with-x-toolkit=lucid does not have this problem
 
   init_eval ();
   init_data ();
-#ifdef CLASH_DETECTION
-  init_filelock ();
-#endif
   init_atimer ();
   running_asynch_code = 0;
 
@@ -1602,17 +1598,12 @@ Using an Emacs configured with --with-x-toolkit=lucid does not have this problem
   init_keyboard ();     /* This too must precede init_sys_modes.  */
   if (!noninteractive)
     init_display ();    /* Determine terminal type.  Calls init_sys_modes.  */
-  init_fns ();
   init_xdisp ();
 #ifdef HAVE_WINDOW_SYSTEM
   init_fringe ();
-  init_image ();
 #endif /* HAVE_WINDOW_SYSTEM */
   init_macros ();
   init_floatfns ();
-#ifdef HAVE_SOUND
-  init_sound ();
-#endif
   init_window ();
   init_font ();
 
diff --git a/src/filelock.c b/src/filelock.c
index e5de7355652..e840d3c5c3b 100644
--- a/src/filelock.c
+++ b/src/filelock.c
@@ -708,15 +708,6 @@ t if it is locked by you, else a string saying which user has locked it.  */)
 
   return ret;
 }
-
-/* Initialization functions.  */
-
-void
-init_filelock (void)
-{
-  boot_time = 0;
-  boot_time_initialized = 0;
-}
 
 #endif /* CLASH_DETECTION */
 
diff --git a/src/fns.c b/src/fns.c
index 0132dcd2cf5..da8889e70a7 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -5022,9 +5022,3 @@ this variable.  */);
   defsubr (&Ssecure_hash);
   defsubr (&Slocale_info);
 }
-
-
-void
-init_fns (void)
-{
-}
diff --git a/src/image.c b/src/image.c
index 6f2afb28cd2..8a318c2f6ec 100644
--- a/src/image.c
+++ b/src/image.c
@@ -8951,8 +8951,3 @@ The options are:
 #endif
 
 }
-
-void
-init_image (void)
-{
-}
diff --git a/src/lisp.h b/src/lisp.h
index 9a277f0d2d3..09c504363fa 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2402,7 +2402,6 @@ extern ptrdiff_t chars_in_text (const unsigned char *, ptrdiff_t);
 extern ptrdiff_t multibyte_chars_in_text (const unsigned char *, ptrdiff_t);
 extern int multibyte_char_to_unibyte (int) ATTRIBUTE_CONST;
 extern int multibyte_char_to_unibyte_safe (int) ATTRIBUTE_CONST;
-extern void init_character_once (void) ATTRIBUTE_CONST;
 extern void syms_of_character (void);
 
 /* Defined in charset.c */
@@ -2437,7 +2436,6 @@ Lisp_Object make_hash_table (Lisp_Object, Lisp_Object, Lisp_Object,
 ptrdiff_t hash_lookup (struct Lisp_Hash_Table *, Lisp_Object, EMACS_UINT *);
 ptrdiff_t hash_put (struct Lisp_Hash_Table *, Lisp_Object, Lisp_Object,
                     EMACS_UINT);
-extern void init_fns (void) ATTRIBUTE_CONST;
 
 extern Lisp_Object substring_both (Lisp_Object, ptrdiff_t, ptrdiff_t,
                                    ptrdiff_t, ptrdiff_t);
@@ -2473,7 +2471,6 @@ extern Lisp_Object QCascent, QCmargin, QCrelief;
 extern Lisp_Object QCconversion;
 extern int x_bitmap_mask (struct frame *, ptrdiff_t);
 extern void syms_of_image (void);
-extern void init_image (void) ATTRIBUTE_CONST;
 
 /* Defined in insdel.c */
 extern Lisp_Object Qinhibit_modification_hooks;
@@ -3162,11 +3159,9 @@ extern void lock_file (Lisp_Object);
 extern void unlock_file (Lisp_Object);
 extern void unlock_buffer (struct buffer *);
 extern void syms_of_filelock (void);
-extern void init_filelock (void);
 
 /* Defined in sound.c */
 extern void syms_of_sound (void);
-extern void init_sound (void) ATTRIBUTE_CONST;
 
 /* Defined in category.c */
 extern void init_category_once (void);
diff --git a/src/sound.c b/src/sound.c
index 3773047827b..151bc1a08c1 100644
--- a/src/sound.c
+++ b/src/sound.c
@@ -1473,10 +1473,4 @@ syms_of_sound (void)
   defsubr (&Splay_sound_internal);
 }
 
-
-void
-init_sound (void)
-{
-}
-
 #endif /* HAVE_SOUND */