aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/charset.c16
1 files changed, 8 insertions, 8 deletions
diff --git a/src/charset.c b/src/charset.c
index 72c1b41657f..987adc3787e 100644
--- a/src/charset.c
+++ b/src/charset.c
@@ -1184,23 +1184,23 @@ DEFUN ("composite-char-component", Fcmpchar_component, Scmpchar_component,
1184 1184
1185DEFUN ("composite-char-composition-rule", Fcmpchar_cmp_rule, Scmpchar_cmp_rule, 1185DEFUN ("composite-char-composition-rule", Fcmpchar_cmp_rule, Scmpchar_cmp_rule,
1186 2, 2, 0, 1186 2, 2, 0,
1187 "Return the IDXth composition rule embedded in composite character CHARACTER. 1187 "Return the Nth composition rule embedded in composite character CHARACTER.\n\
1188The returned rule is for composing the IDXth component 1188The returned rule is for composing the Nth component\n\
1189on the (IDX-1)th component. If IDX is 0, the returned value is always 255.") 1189on the (N-1)th component. If N is 0, the returned value is always 255.")
1190 (character, idx) 1190 (character, n)
1191 Lisp_Object character, idx; 1191 Lisp_Object character, n;
1192{ 1192{
1193 int id, i; 1193 int id, i;
1194 1194
1195 CHECK_NUMBER (character, 0); 1195 CHECK_NUMBER (character, 0);
1196 CHECK_NUMBER (idx, 1); 1196 CHECK_NUMBER (n, 1);
1197 1197
1198 id = COMPOSITE_CHAR_ID (XINT (character)); 1198 id = COMPOSITE_CHAR_ID (XINT (character));
1199 if (id < 0 || id >= n_cmpchars) 1199 if (id < 0 || id >= n_cmpchars)
1200 error ("Invalid composite character: %d", XINT (character)); 1200 error ("Invalid composite character: %d", XINT (character));
1201 i = XINT (idx); 1201 i = XINT (n);
1202 if (i > cmpchar_table[id]->glyph_len) 1202 if (i > cmpchar_table[id]->glyph_len)
1203 args_out_of_range (character, idx); 1203 args_out_of_range (character, n);
1204 1204
1205 return make_number (cmpchar_table[id]->cmp_rule[i]); 1205 return make_number (cmpchar_table[id]->cmp_rule[i]);
1206} 1206}