/[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.1 by handa, Fri Mar 1 02:06:19 2002 UTC revision 1.35.2.2 by handa, Tue Mar 5 00:06:48 2002 UTC
# Line 101  Line 101 
101    
102  ;; ASCII  ;; ASCII
103    
104  (let ((ch 32))  ;; All ASCII characters have the category `a' (ASCII) and `l' (Latin).
105    (while (< ch 127)                     ; All ASCII characters have  (modify-category-entry '(32 . 127) ?a)
106      (modify-category-entry ch ?a)       ; the category `a' (ASCII)  (modify-category-entry '(32 . 127) ?l)
     (modify-category-entry ch ?l)       ; and `l' (Latin).  
     (setq ch (1+ ch))))  
107    
108  ;; Arabic character set  ;; Arabic character set
109    
# Line 116  Line 114 
114    (while charsets    (while charsets
115  ;;     (modify-syntax-entry (make-char (car charsets)) "w")  ;;     (modify-syntax-entry (make-char (car charsets)) "w")
116      (map-charset-chars      (map-charset-chars
117       #'(lambda (char ignore)       #'(lambda (char ignore) (modify-category-entry char ?b))
          (if (consp char)  
              (let ((from (car char))  
                    (to (cdr char)))  
                (while (<= from to)  
                  (modify-category-entry from ?b)  
                  (setq from (1+ from))))  
            (modify-category-entry char ?b)))  
118       (car charsets))       (car charsets))
119      (setq charsets (cdr charsets))))      (setq charsets (cdr charsets))))
120  (let ((ch #x600))  (modify-category-entry '(#x600 . #x6ff) ?b)
121    (while (<= ch #x6ff)  (modify-category-entry '(#xfb50 . #xfdff) ?b)
122      (modify-category-entry (decode-char 'ucs ch) ?b)  (modify-category-entry '(#xfe70 . #xfefe) ?b)
     (setq ch (1+ ch)))  
   (setq ch #xfb50)  
   (while (<= ch #xfdff)  
     (modify-category-entry (decode-char 'ucs ch) ?b)  
     (setq ch (1+ ch)))  
   (setq ch #xfe70)  
   (while (<= ch #xfefe)  
     (modify-category-entry (decode-char 'ucs ch) ?b)  
     (setq ch (1+ ch))))  
123    
124  ;; Chinese character set (GB2312)  ;; Chinese character set (GB2312)
125    
# Line 366  Line 348 
348    
349  ;; (modify-category-entry (make-char 'ethiopic) ?e)  ;; (modify-category-entry (make-char 'ethiopic) ?e)
350  ;; (modify-syntax-entry (make-char 'ethiopic) "w")  ;; (modify-syntax-entry (make-char 'ethiopic) "w")
351  (dotimes (i (1+ (- #x137c #x1200)))  (modify-category-entry '(#x1200 . #x137b) ?e)
   (modify-category-entry (decode-char 'ucs (+ #x1200 i)) ?e))  
352  (let ((chars '(?$(3$h(B ?$(3$i(B ?$(3$j(B ?$(3$k(B ?$(3$l(B ?$(3$m(B ?$(3$n(B ?$(3$o(B ?$(3%i(B ?$(3%t(B ?$(3%u(B ?$(3%v(B ?$(3%w(B ?$(3%x(B  (let ((chars '(?$(3$h(B ?$(3$i(B ?$(3$j(B ?$(3$k(B ?$(3$l(B ?$(3$m(B ?$(3$n(B ?$(3$o(B ?$(3%i(B ?$(3%t(B ?$(3%u(B ?$(3%v(B ?$(3%w(B ?$(3%x(B
353                 ;; Unicode equivalents of the above:                 ;; Unicode equivalents of the above:
354                 ?$,1Q!(B ?$,1Q"(B ?$,1Q#(B ?$,1Q$(B ?$,1Q%(B ?$,1Q&(B ?$,1Q'(B ?$,1Q((B ?$,3op(B ?$,3o{(B ?$,3o|(B ?$,3o}(B ?$,3o~(B ?$,3o(B)))                 ?$,1Q!(B ?$,1Q"(B ?$,1Q#(B ?$,1Q$(B ?$,1Q%(B ?$,1Q&(B ?$,1Q'(B ?$,1Q((B ?$,3op(B ?$,3o{(B ?$,3o|(B ?$,3o}(B ?$,3o~(B ?$,3o(B)))

Legend:
Removed from v.1.35.2.1  
changed lines
  Added in v.1.35.2.2

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