1065 |
;; general punctuation |
;; general punctuation |
1066 |
(setq c #x2000) |
(setq c #x2000) |
1067 |
(while (<= c #x200b) |
(while (<= c #x200b) |
1068 |
(set-case-syntax c " " tbl) |
(set-case-syntax (decode-char 'ucs c) " " tbl) |
1069 |
(setq c (1+ c))) |
(setq c (decode-char 'ucs (1+ c)))) |
1070 |
(setq c #x2010) |
(setq c #x2010) |
1071 |
(while (<= c #x2027) |
(while (<= c #x2027) |
1072 |
(set-case-syntax c "_" tbl) |
(set-case-syntax (decode-char 'ucs c) "_" tbl) |
1073 |
(setq c (1+ c))) |
(setq c (decode-char 'ucs (1+ c)))) |
1074 |
|
|
1075 |
;; Roman numerals |
;; Roman numerals |
1076 |
(setq c #x2160) |
(setq c #x2160) |
1097 |
(modify-category-entry (decode-char 'ucs (+ c #x20)) ?l) |
(modify-category-entry (decode-char 'ucs (+ c #x20)) ?l) |
1098 |
(setq c (1+ c))) |
(setq c (1+ c))) |
1099 |
|
|
|
;; Ohm, Kelvin, Angstrom |
|
|
(set-case-syntax-pair ?$,1uf(B ?$,1'I(B tbl) |
|
|
;;; These mess up the case conversion of k and ,Ae(B. |
|
|
;;; (set-case-syntax-pair ?$,1uj(B ?k tbl) |
|
|
;;; (set-case-syntax-pair ?$,1uk(B ?,Ae(B tbl) |
|
|
|
|
1100 |
;; Combining diacritics |
;; Combining diacritics |
1101 |
(setq c #x300) |
(setq c #x300) |
1102 |
(while (<= c #x362) |
(while (<= c #x362) |