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.

diff --git a/src/ChangeLog b/src/ChangeLog
index 495ffebbe6377a5d5153ce8d5cf620161056dfab..44001546570723008379e415c14e4c0b876469e0 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,15 @@
+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.

diff --git a/src/character.c b/src/character.c
index 62454fe7f1c05967d564884c9eea63745854bc6d..f4c74a93d390810e9e3b5104b7801f92921cb56b 100644 (file)
--- 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 db01b13c32dcf987b4de73b62dc4cb8a292f2cd6..2893b5f205cea518db0b3ac835f9b58af0d49846 100644 (file)
--- 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 e5de7355652eafed502b3224423a4355a415a373..e840d3c5c3b4dc9c8b36a4305118a2a18c32fedb 100644 (file)
--- 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;
 }
-\f
-/* 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 0132dcd2cf5554013636be0c58f664e0b6515479..da8889e70a7bddd8040dfe3f6d4b636993da6245 100644 (file)
--- 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 6f2afb28cd297225488a85742379f38e82dc52f0..8a318c2f6ecd628f2a6179b75f749e4703d8206a 100644 (file)
--- 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 9a277f0d2d3473ff7c1722369f95edc29f4d7335..09c504363fa829497593a0d2777db7cba5d2fbbe 100644 (file)
--- 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 3773047827b2590a893e829dbc86ea593b11621d..151bc1a08c16418ab64e0b5551f092dfaad01c23 100644 (file)
--- 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 */