88 |
that will be used as the downcase part of a case table. |
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 |
It also modifies `standard-syntax-table' to give them the syntax of |
90 |
word constituents." |
word constituents." |
|
(let ((lu (length (string-as-unibyte (string uc)))) |
|
|
(ll (length (string-as-unibyte (string lc))))) |
|
|
(unless (= lu ll) |
|
|
(error "Can't casify chars with different `charset-bytes' values"))) |
|
91 |
(aset table uc lc) |
(aset table uc lc) |
92 |
(aset table lc lc) |
(aset table lc lc) |
93 |
(set-char-table-extra-slot table 0 nil) |
(set-char-table-extra-slot table 0 nil) |