diff options
Diffstat (limited to 'src/composite.c')
| -rw-r--r-- | src/composite.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/composite.c b/src/composite.c index a6606d5fc45..efbd055cef2 100644 --- a/src/composite.c +++ b/src/composite.c | |||
| @@ -919,16 +919,17 @@ autocmp_chars (Lisp_Object rule, ptrdiff_t charpos, ptrdiff_t bytepos, | |||
| 919 | } | 919 | } |
| 920 | 920 | ||
| 921 | /* 1 iff the character C is composable. Characters of general | 921 | /* 1 iff the character C is composable. Characters of general |
| 922 | category Z? or C? are not composable except for ZWNJ and ZWJ. */ | 922 | category Z? or C? are not composable except for ZWNJ and ZWJ, |
| 923 | and characters of category Zs. */ | ||
| 923 | 924 | ||
| 924 | static bool | 925 | static bool |
| 925 | char_composable_p (int c) | 926 | char_composable_p (int c) |
| 926 | { | 927 | { |
| 927 | Lisp_Object val; | 928 | Lisp_Object val; |
| 928 | return (c > ' ' | 929 | return (c >= ' ' |
| 929 | && (c == ZERO_WIDTH_NON_JOINER || c == ZERO_WIDTH_JOINER | 930 | && (c == ZERO_WIDTH_NON_JOINER || c == ZERO_WIDTH_JOINER |
| 930 | || (val = CHAR_TABLE_REF (Vunicode_category_table, c), | 931 | || (val = CHAR_TABLE_REF (Vunicode_category_table, c), |
| 931 | (FIXNUMP (val) && (XFIXNUM (val) <= UNICODE_CATEGORY_So))))); | 932 | (FIXNUMP (val) && (XFIXNUM (val) <= UNICODE_CATEGORY_Zs))))); |
| 932 | } | 933 | } |
| 933 | 934 | ||
| 934 | /* Update cmp_it->stop_pos to the next position after CHARPOS (and | 935 | /* Update cmp_it->stop_pos to the next position after CHARPOS (and |