diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/charset.c | 16 |
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 | ||
| 1185 | DEFUN ("composite-char-composition-rule", Fcmpchar_cmp_rule, Scmpchar_cmp_rule, | 1185 | DEFUN ("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\ |
| 1188 | The returned rule is for composing the IDXth component | 1188 | The returned rule is for composing the Nth component\n\ |
| 1189 | on the (IDX-1)th component. If IDX is 0, the returned value is always 255.") | 1189 | on 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 | } |