/[emacs]/emacs/lisp/international/characters.el
ViewVC logotype

Diff of /emacs/lisp/international/characters.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.35.2.21 by fx, Mon Sep 23 14:03:06 2002 UTC revision 1.35.2.22 by fx, Mon Sep 23 22:20:58 2002 UTC
# Line 661  Line 661 
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)
# Line 672  Line 678 
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)
# Line 809  Line 833 
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

Legend:
Removed from v.1.35.2.21  
changed lines
  Added in v.1.35.2.22

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26