103 |
that will be used as the downcase part of a case table. |
that will be used as the downcase part of a case table. |
104 |
It also modifies `standard-syntax-table' to give them the syntax of |
It also modifies `standard-syntax-table' to give them the syntax of |
105 |
word constituents." |
word constituents." |
106 |
|
(unless (= (charset-bytes (char-charset uc)) |
107 |
|
(charset-bytes (char-charset lc))) |
108 |
|
(error "Can't casify chars with different `charset-bytes' values")) |
109 |
(setq uc (set-case-syntax-1 uc)) |
(setq uc (set-case-syntax-1 uc)) |
110 |
(setq lc (set-case-syntax-1 lc)) |
(setq lc (set-case-syntax-1 lc)) |
111 |
(aset table uc lc) |
(aset table uc lc) |