aboutsummaryrefslogtreecommitdiffstats
path: root/src/composite.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/composite.c')
-rw-r--r--src/composite.c7
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
924static bool 925static bool
925char_composable_p (int c) 926char_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