661 |
(while (<= c #x200b) |
(while (<= c #x200b) |
662 |
(set-case-syntax c " " tbl) |
(set-case-syntax c " " tbl) |
663 |
(setq c (1+ c))) |
(setq c (1+ c))) |
664 |
(setq c #x2010) |
(while (<= c #x200F) |
665 |
|
(set-case-syntax c "." tbl) |
666 |
|
(setq c (1+ c))) |
667 |
|
;; Fixme: These aren't all right: |
668 |
(while (<= c #x2027) |
(while (<= c #x2027) |
669 |
(set-case-syntax c "_" tbl) |
(set-case-syntax c "_" tbl) |
670 |
(setq c (1+ c))) |
(setq c (1+ c))) |
671 |
|
(while (<= c #x206F) |
672 |
|
(set-case-syntax c "." tbl) |
673 |
|
(setq c (1+ c))) |
674 |
|
|
675 |
;; Roman numerals |
;; Roman numerals |
676 |
(setq c #x2160) |
(setq c #x2160) |
678 |
(set-case-syntax-pair c (+ c #x10) tbl) |
(set-case-syntax-pair c (+ c #x10) tbl) |
679 |
(setq c (1+ c))) |
(setq c (1+ c))) |
680 |
|
|
681 |
|
;; Arrows |
682 |
|
(setq c #x2190) |
683 |
|
(while (<= c #c21FF) |
684 |
|
(set-case-syntax-pair c "." tbl) |
685 |
|
(setq c (1+ c))) |
686 |
|
;; Mathematical Operators |
687 |
|
(while (<= c #x22FF) |
688 |
|
(set-case-syntax-pair c "." tbl) |
689 |
|
(setq c (1+ c))) |
690 |
|
;; Miscellaneous Technical |
691 |
|
(while (<= c #x23FF) |
692 |
|
(set-case-syntax-pair c "." tbl) |
693 |
|
(setq c (1+ c))) |
694 |
|
;; Control Pictures |
695 |
|
(while (<= c #x243F) |
696 |
|
(set-case-syntax-pair c "_" tbl) |
697 |
|
(set c (1+ c))) |
698 |
|
|
699 |
;; Circled Latin |
;; Circled Latin |
700 |
(setq c #x24b6) |
(setq c #x24b6) |
701 |
(while (<= c #x24cf) |
(while (<= c #x24cf) |
833 |
(optimize-char-table (standard-category-table)) |
(optimize-char-table (standard-category-table)) |
834 |
(optimize-char-table (standard-syntax-table)) |
(optimize-char-table (standard-syntax-table)) |
835 |
|
|
836 |
|
;; The Unicode blocks actually extend past some of these ranges with |
837 |
|
;; undefined codepoints. |
838 |
(let ((script-list nil)) |
(let ((script-list nil)) |
839 |
(dolist |
(dolist |
840 |
(elt |
(elt |