From: Dmitry Antipov Date: Mon, 16 Jul 2012 04:47:31 +0000 (+0400) Subject: Remove empty and useless init functions. X-Git-Tag: emacs-24.2.90~1187 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6a0dd1d7e075ccb23ed08afafe9b251eacd931bd;p=emacs.git 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 495ffebbe63..44001546570 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,15 @@ +2012-07-16 Dmitry Antipov + + 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 * gtkutil.h: Tiny cleanups. 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 */