extern function cleanup

Most of these functions can be static.  A few are unused.
* src/coding.c (encode_string_utf_8, decode_string_utf_8):
Define only if ENABLE_UTF_8_CONVERTER_TEST, as they're
not needed otherwise.
* src/coding.c (encode_string_utf_8, decode_string_utf_8):
* src/data.c (integer_mod):
* src/fns.c (base64_encode_region_1, base64_encode_string_1):
* src/ftfont.c (ftfont_get_fc_charset):
Now static.
* src/sysdep.c (verrprintf): Remove; unused.

1 files changed, 6 insertions, 6 deletions

diff --git a/src/coding.c b/src/coding.c
index 2ddd34eb7b6..1c6475828df 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -9516,6 +9516,10 @@ code_convert_string_norecord (Lisp_Object string, Lisp_Object coding_system,
 }
 
 
+/* #define ENABLE_UTF_8_CONVERTER_TEST */
+
+#ifdef ENABLE_UTF_8_CONVERTER_TEST
+
 /* Return the gap address of BUFFER.  If the gap size is less than
    NBYTES, enlarge the gap in advance.  */
 
@@ -9618,7 +9622,7 @@ get_char_bytes (int c, int *len)
    If the two arguments are Qnil, return Qnil if STRING has a
    non-Unicode character.  */
 
-Lisp_Object
+static Lisp_Object
 encode_string_utf_8 (Lisp_Object string, Lisp_Object buffer,
                      bool nocopy, Lisp_Object handle_8_bit,
                      Lisp_Object handle_over_uni)
@@ -9873,7 +9877,7 @@ encode_string_utf_8 (Lisp_Object string, Lisp_Object buffer,
    If the two arguments are Qnil, return Qnil if STRING has an invalid
    sequence.  */
 
-Lisp_Object
+static Lisp_Object
 decode_string_utf_8 (Lisp_Object string, Lisp_Object buffer,
                      bool nocopy, Lisp_Object handle_8_bit,
                      Lisp_Object handle_over_uni)
@@ -10111,10 +10115,6 @@ decode_string_utf_8 (Lisp_Object string, Lisp_Object buffer,
   return val;
 }
 
-/* #define ENABLE_UTF_8_CONVERTER_TEST */
-
-#ifdef ENABLE_UTF_8_CONVERTER_TEST
-
 /* These functions are useful for testing and benchmarking
    encode_string_utf_8 and decode_string_utf_8.  */