145 |
(modify-syntax-entry ?\』 ")『") |
(modify-syntax-entry ?\』 ")『") |
146 |
(modify-syntax-entry ?\〗 ")〖") |
(modify-syntax-entry ?\〗 ")〖") |
147 |
(modify-syntax-entry ?\】 ")【") |
(modify-syntax-entry ?\】 ")【") |
148 |
|
(modify-syntax-entry ?\〚 "(〛") |
149 |
|
(modify-syntax-entry ?\〛 ")〚") |
150 |
|
|
151 |
(map-charset-chars #'modify-category-entry 'chinese-gb2312 ?c) |
(map-charset-chars #'modify-category-entry 'chinese-gb2312 ?c) |
152 |
(map-charset-chars #'modify-category-entry 'chinese-gb2312 ?|) |
(map-charset-chars #'modify-category-entry 'chinese-gb2312 ?|) |
682 |
|
|
683 |
;; Arrows |
;; Arrows |
684 |
(setq c #x2190) |
(setq c #x2190) |
685 |
(while (<= c #c21FF) |
(while (<= c #x21FF) |
686 |
(set-case-syntax-pair c "." tbl) |
(set-case-syntax c "." tbl) |
687 |
(setq c (1+ c))) |
(setq c (1+ c))) |
688 |
;; Mathematical Operators |
;; Mathematical Operators |
689 |
(while (<= c #x22FF) |
(while (<= c #x22FF) |
690 |
(set-case-syntax-pair c "." tbl) |
(set-case-syntax c "." tbl) |
691 |
(setq c (1+ c))) |
(setq c (1+ c))) |
692 |
;; Miscellaneous Technical |
;; Miscellaneous Technical |
693 |
(while (<= c #x23FF) |
(while (<= c #x23FF) |
694 |
(set-case-syntax-pair c "." tbl) |
(set-case-syntax c "." tbl) |
695 |
(setq c (1+ c))) |
(setq c (1+ c))) |
696 |
;; Control Pictures |
;; Control Pictures |
697 |
(while (<= c #x243F) |
(while (<= c #x243F) |
698 |
(set-case-syntax-pair c "_" tbl) |
(set-case-syntax c "_" tbl) |
699 |
(set c (1+ c))) |
(setq c (1+ c))) |
700 |
|
|
701 |
;; Circled Latin |
;; Circled Latin |
702 |
(setq c #x24b6) |
(setq c #x24b6) |