diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/fns.c | 8 |
1 files changed, 4 insertions, 4 deletions
| @@ -2536,19 +2536,19 @@ char_table_range (table, from, to, defalt) | |||
| 2536 | error ("Characters in the range have inconsistent values"); | 2536 | error ("Characters in the range have inconsistent values"); |
| 2537 | } | 2537 | } |
| 2538 | return val; | 2538 | return val; |
| 2539 | } | 2539 | } |
| 2540 | 2540 | ||
| 2541 | 2541 | ||
| 2542 | DEFUN ("char-table-range", Fchar_table_range, Schar_table_range, | 2542 | DEFUN ("char-table-range", Fchar_table_range, Schar_table_range, |
| 2543 | 2, 2, 0, | 2543 | 2, 2, 0, |
| 2544 | doc: /* Return the value in CHAR-TABLE for a range of characters RANGE. | 2544 | doc: /* Return the value in CHAR-TABLE for a range of characters RANGE. |
| 2545 | RANGE should be nil (for the default value) | 2545 | RANGE should be nil (for the default value), |
| 2546 | a vector which identifies a character set or a row of a character set, | 2546 | a vector which identifies a character set or a row of a character set, |
| 2547 | a character set name, or a character code. | 2547 | a character set name, or a character code. |
| 2548 | If the characters in the specified range have different values, | 2548 | If the characters in the specified range have different values, |
| 2549 | an error is signalled. | 2549 | an error is signalled. |
| 2550 | 2550 | ||
| 2551 | Note that this function doesn't check the parent of CHAR_TABLE. */) | 2551 | Note that this function doesn't check the parent of CHAR-TABLE. */) |
| 2552 | (char_table, range) | 2552 | (char_table, range) |
| 2553 | Lisp_Object char_table, range; | 2553 | Lisp_Object char_table, range; |
| 2554 | { | 2554 | { |
| @@ -2631,7 +2631,7 @@ Note that this function doesn't check the parent of CHAR_TABLE. */) | |||
| 2631 | current_default = XCHAR_TABLE (char_table)->contents[defalt]; | 2631 | current_default = XCHAR_TABLE (char_table)->contents[defalt]; |
| 2632 | return char_table_range (char_table, from, to, current_default); | 2632 | return char_table_range (char_table, from, to, current_default); |
| 2633 | } | 2633 | } |
| 2634 | 2634 | ||
| 2635 | val = XCHAR_TABLE (char_table)->contents[128 + charset_id]; | 2635 | val = XCHAR_TABLE (char_table)->contents[128 + charset_id]; |
| 2636 | if (! SUB_CHAR_TABLE_P (val)) | 2636 | if (! SUB_CHAR_TABLE_P (val)) |
| 2637 | return (NILP (val) ? current_default : val); | 2637 | return (NILP (val) ? current_default : val); |