diff options
| author | Paul Eggert | 2020-04-17 07:57:25 -0700 |
|---|---|---|
| committer | Paul Eggert | 2020-04-17 09:17:35 -0700 |
| commit | 27d101832ada36e431ae6cdecb5c82a180566377 (patch) | |
| tree | 13e20d71f22cf4736bbfa02be54735b1484610bb /src/keymap.c | |
| parent | 3e46a2315f1a999f5811f57a60a2a55f95d8fbb0 (diff) | |
| download | emacs-27d101832ada36e431ae6cdecb5c82a180566377.tar.gz emacs-27d101832ada36e431ae6cdecb5c82a180566377.zip | |
Prefer more inline functions in character.h
* src/buffer.h (fetch_char_advance, fetch_char_advance_no_check)
(buf_next_char_len, next_char_len, buf_prev_char_len)
(prev_char_len, inc_both, dec_both): New inline functions,
replacing the old character.h macros FETCH_CHAR_ADVANCE,
FETCH_CHAR_ADVANCE_NO_CHECK, BUF_INC_POS, INC_POS, BUF_DEC_POS,
DEC_POS, INC_BOTH, DEC_BOTH respectively. All callers changed.
These new functions all assume buffer primitives and so need
to be here rather than in character.h.
* src/casefiddle.c (make_char_unibyte): New static function,
replacing the old MAKE_CHAR_UNIBYTE macro. All callers changed.
(do_casify_unibyte_string): Use SINGLE_BYTE_CHAR_P instead
of open-coding it.
* src/ccl.c (GET_TRANSLATION_TABLE): New static function,
replacing the old macro of the same name.
* src/character.c (string_char): Omit 2nd arg. 3rd arg can no
longer be NULL. All callers changed.
* src/character.h (SINGLE_BYTE_CHAR_P): Move up.
(MAKE_CHAR_UNIBYTE, MAKE_CHAR_MULTIBYTE, PREV_CHAR_BOUNDARY)
(STRING_CHAR_AND_LENGTH, STRING_CHAR_ADVANCE)
(FETCH_STRING_CHAR_ADVANCE)
(FETCH_STRING_CHAR_AS_MULTIBYTE_ADVANCE)
(FETCH_STRING_CHAR_ADVANCE_NO_CHECK, FETCH_CHAR_ADVANCE)
(FETCH_CHAR_ADVANCE_NO_CHECK, INC_POS, DEC_POS, INC_BOTH)
(DEC_BOTH, BUF_INC_POS, BUF_DEC_POS): Remove.
(make_char_multibyte): New static function, replacing
the old macro MAKE_CHAR_MULTIBYTE. All callers changed.
(CHAR_STRING_ADVANCE): Remove; all callers changed to use
CHAR_STRING.
(NEXT_CHAR_BOUNDARY): Remove; it was unused.
(raw_prev_char_len): New inline function, replacing the
old PREV_CHAR_BOUNDARY macro. All callers changed.
(string_char_and_length): New inline function, replacing the
old STRING_CHAR_AND_LENGTH macro. All callers changed.
(STRING_CHAR): Rewrite in terms of string_char_and_length.
(string_char_advance): New inline function, replacing the old
STRING_CHAR_ADVANCE macro. All callers changed.
(fetch_string_char_advance): New inline function, replacing the
old FETCH_STRING_CHAR_ADVANCE macro. All callers changed.
(fetch_string_char_as_multibyte_advance): New inline function,
replacing the old FETCH_STRING_CHAR_AS_MULTIBYTE_ADVANCE macro.
All callers changed.
(fetch_string_char_advance_no_check): New inline function,
replacing the old FETCH_STRING_CHAR_ADVANCE_NO_CHECK macro. All
callers changed.
* src/regex-emacs.c (HEAD_ADDR_VSTRING): Remove; no longer used.
* src/syntax.c (scan_lists): Use dec_bytepos instead of
open-coding it.
* src/xdisp.c (string_char_and_length): Rename from
string_char_and_length to avoid name conflict with new function in
character.h. All callers changed.
Diffstat (limited to 'src/keymap.c')
| -rw-r--r-- | src/keymap.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/keymap.c b/src/keymap.c index cfba98c72f2..8a6881a54e6 100644 --- a/src/keymap.c +++ b/src/keymap.c | |||
| @@ -1949,8 +1949,7 @@ then the value includes only maps for prefixes that start with PREFIX. */) | |||
| 1949 | for (ptrdiff_t i = 0; i < SCHARS (prefix); ) | 1949 | for (ptrdiff_t i = 0; i < SCHARS (prefix); ) |
| 1950 | { | 1950 | { |
| 1951 | ptrdiff_t i_before = i; | 1951 | ptrdiff_t i_before = i; |
| 1952 | int c; | 1952 | int c = fetch_string_char_advance (prefix, &i, &i_byte); |
| 1953 | FETCH_STRING_CHAR_ADVANCE (c, prefix, i, i_byte); | ||
| 1954 | if (SINGLE_BYTE_CHAR_P (c) && (c & 0200)) | 1953 | if (SINGLE_BYTE_CHAR_P (c) && (c & 0200)) |
| 1955 | c ^= 0200 | meta_modifier; | 1954 | c ^= 0200 | meta_modifier; |
| 1956 | ASET (copy, i_before, make_fixnum (c)); | 1955 | ASET (copy, i_before, make_fixnum (c)); |
| @@ -2065,8 +2064,7 @@ For an approximate inverse of this, see `kbd'. */) | |||
| 2065 | { | 2064 | { |
| 2066 | if (STRINGP (list)) | 2065 | if (STRINGP (list)) |
| 2067 | { | 2066 | { |
| 2068 | int c; | 2067 | int c = fetch_string_char_advance (list, &i, &i_byte); |
| 2069 | FETCH_STRING_CHAR_ADVANCE (c, list, i, i_byte); | ||
| 2070 | if (SINGLE_BYTE_CHAR_P (c) && (c & 0200)) | 2068 | if (SINGLE_BYTE_CHAR_P (c) && (c & 0200)) |
| 2071 | c ^= 0200 | meta_modifier; | 2069 | c ^= 0200 | meta_modifier; |
| 2072 | XSETFASTINT (key, c); | 2070 | XSETFASTINT (key, c); |