diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2019-08-24 11:42:28 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2019-08-24 15:55:08 -0700 |
| commit | b62eac0f870754bc75b1162246f9901a04910044 (patch) | |
| tree | 4b392cfe5a8c36c6a735fd25228d3622ccbd17b5 /src/coding.c | |
| parent | aa49aa884053d0e8b33efe265f2aade19d1f3f3d (diff) | |
| download | emacs-b62eac0f870754bc75b1162246f9901a04910044.tar.gz emacs-b62eac0f870754bc75b1162246f9901a04910044.tar.bz2 emacs-b62eac0f870754bc75b1162246f9901a04910044.zip | |
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.
Diffstat (limited to 'src/coding.c')
| -rw-r--r-- | src/coding.c | 12 |
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. */ |