140 |
word constituents." |
word constituents." |
141 |
(setq uc (set-case-syntax-1 uc)) |
(setq uc (set-case-syntax-1 uc)) |
142 |
(setq lc (set-case-syntax-1 lc)) |
(setq lc (set-case-syntax-1 lc)) |
143 |
|
(aset table lc lc) |
144 |
(let ((up (get-upcase-table table))) |
(let ((up (get-upcase-table table))) |
145 |
(aset up uc uc) |
(aset up uc uc) |
146 |
(aset up lc uc)) |
(aset up lc uc)) |
159 |
(setq lc (set-case-syntax-1 lc)) |
(setq lc (set-case-syntax-1 lc)) |
160 |
(aset table uc lc) |
(aset table uc lc) |
161 |
(aset table lc lc) |
(aset table lc lc) |
162 |
|
(let ((up (get-upcase-table table))) |
163 |
|
(aset up uc uc)) |
164 |
;; Clear out the extra slots so that they will be |
;; Clear out the extra slots so that they will be |
165 |
;; recomputed from the main (downcase) table and upcase table. |
;; recomputed from the main (downcase) table and upcase table. |
166 |
(set-char-table-extra-slot table 1 nil) |
(set-char-table-extra-slot table 1 nil) |