diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/case-table.el | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/lisp/case-table.el b/lisp/case-table.el index 51c9c444ddd..50458353970 100644 --- a/lisp/case-table.el +++ b/lisp/case-table.el | |||
| @@ -88,10 +88,6 @@ This sets the entries for characters UC and LC in TABLE, which is a string | |||
| 88 | that will be used as the downcase part of a case table. | 88 | that will be used as the downcase part of a case table. |
| 89 | It also modifies `standard-syntax-table' to give them the syntax of | 89 | It also modifies `standard-syntax-table' to give them the syntax of |
| 90 | word constituents." | 90 | word constituents." |
| 91 | (let ((lu (length (string-as-unibyte (string uc)))) | ||
| 92 | (ll (length (string-as-unibyte (string lc))))) | ||
| 93 | (unless (= lu ll) | ||
| 94 | (error "Can't casify chars with different `charset-bytes' values"))) | ||
| 95 | (aset table uc lc) | 91 | (aset table uc lc) |
| 96 | (aset table lc lc) | 92 | (aset table lc lc) |
| 97 | (set-char-table-extra-slot table 0 nil) | 93 | (set-char-table-extra-slot table 0 nil) |