/[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.7 by fx, Sat May 25 23:30:45 2002 UTC revision 1.35.2.8 by fx, Sun Jun 2 20:32:26 2002 UTC
# Line 283  Line 283 
283  ;; Ethiopic character set  ;; Ethiopic character set
284    
285  (modify-category-entry '(#x1200 . #x137b) ?e)  (modify-category-entry '(#x1200 . #x137b) ?e)
286  (let ((chars '(? ? ? ? ? ? ? ? ? ? ? ? ? ?)))  (let ((chars '(?፡ ?። ?፣ ?፤ ?፥ ?፦ ?፧ ?፨ ? ? ? ? ? ?)))
287    (while chars    (while chars
288      (modify-syntax-entry (car chars) ".")      (modify-syntax-entry (car chars) ".")
289      (setq chars (cdr chars))))      (setq chars (cdr chars))))
# Line 384  Line 384 
384  ;;; and word syntax is the default.  ;;; and word syntax is the default.
385  ;; (let ((deflist                               ;  ;; (let ((deflist                               ;
386  ;;      '(;; chars      syntax  category  ;;      '(;; chars      syntax  category
387  ;;        (""       "w"     ?7) ; vowel-modifying diacritical mark  ;;        ("ँंः"  "w"     ?7) ; vowel-modifying diacritical mark
388  ;;                                  ; chandrabindu, anuswar, visarga  ;;                                  ; chandrabindu, anuswar, visarga
389  ;;        ("-"  "w"     ?1) ; base (independent) vowel  ;;        ("अ-ऍ"    "w"     ?1) ; base (independent) vowel
390  ;;        ("-"  "w"     ?0) ; consonant  ;;        ("क-ह"    "w"     ?0) ; consonant
391  ;;        ("-"  "w"     ?8) ; matra  ;;        ("ा-ॉ"    "w"     ?8) ; matra
392  ;;        ("-"  "w"     ?6) ; digit  ;;        ("०-९"    "w"     ?6) ; digit
393  ;;        ))  ;;        ))
394  ;;       elm chars len syntax category to ch i)  ;;       elm chars len syntax category to ch i)
395  ;;   (while deflist  ;;   (while deflist
# Line 641  Line 641 
641  (map-charset-chars #'modify-category-entry 'tibetan-1-column ?q)  (map-charset-chars #'modify-category-entry 'tibetan-1-column ?q)
642    
643  (let ((deflist  '(;; chars             syntax category  (let ((deflist  '(;; chars             syntax category
644                    ("-"              "w"     ?0) ; consonant                    ("ཀ-ཀྵཪ"         "w"     ?0) ; consonant
645                    ("-"       "w"     ?0) ;                    ("ྐ-ྐྵྺྻྼ"       "w"     ?0) ;
646                    ("-"              "w"     ?0) ;                    ("-"              "w"     ?0) ;
647                    ("-"              "w"     ?0) ;                    ("-"              "w"     ?0) ;
648                    (""       "w" ?2) ; upper vowel                    ("ིེཻོཽྀ"       "w"       ?2) ; upper vowel
649                    ("" "w"   ?2) ; upper modifier                    ("ཾྂྃ྆྇ྈྉྊྋ" "w"    ?2) ; upper modifier
650                    (""       "w"     ?3) ; lowel vowel/modifier                    ("྄ཱུ༙༵༷"       "w"   ?3) ; lowel vowel/modifier
651                    ("--"         "w"     ?6) ; digit                    ("༠-༩༪-༳"             "w"     ?6) ; digit
652                    ("-"        "."     ?|) ; line-break char                    ("་།-༒༔ཿ"        "."     ?|) ; line-break char
653                    (""            "."     ?|) ;                    ("་།༏༐༑༔ཿ"            "."     ?|) ;
654                    ("-"  "."     ?>) ; prohibition                    ("༈་།-༒༔ཿ༽༴"  "."     ?>) ; prohibition
655                    (""            "."     ?>) ;                    ("་།༏༐༑༔ཿ"            "."     ?>) ;
656                    ("-"      "."     ?<) ; prohibition                    ("ༀ-༊༼࿁࿂྅"      "."     ?<) ; prohibition
657                    ("----" "." ?q) ; others                    ("༓༕-༘༚-༟༶༸-༻༾༿྾྿-࿏" "." ?q) ; others
658                    ))                    ))
659        elm chars len syntax category to ch i)        elm chars len syntax category to ch i)
660    (while deflist    (while deflist
# Line 686  Line 686 
686    
687  (map-charset-chars #'modify-category-entry 'vietnamese-viscii-upper ?l)  (map-charset-chars #'modify-category-entry 'vietnamese-viscii-upper ?l)
688  (map-charset-chars #'modify-category-entry 'vietnamese-viscii-upper ?v)  (map-charset-chars #'modify-category-entry 'vietnamese-viscii-upper ?v)
 ;; Fixme Unicode versions of Vietnamese categeory.  
689    
690  (let ((tbl (standard-case-table))  (let ((tbl (standard-case-table))
691        (i 32))        (i 32))
692    (while (< i 128)    (while (< i 128)
693      (let ((char (decode-char 'vietnamese-viscii-upper i)))      (let* ((char (decode-char 'vietnamese-viscii-upper i))
694        (if char             (charl (decode-char 'vietnamese-viscii-lower i))
695            (set-case-syntax-pair char (decode-char 'vietnamese-viscii-lower i)             (uc (encode-char char 'ucs))
696                                  tbl)))             (lc (encode-char charl 'ucs)))
697          (set-case-syntax-pair char (decode-char 'vietnamese-viscii-lower i)
698                                tbl)        
699          (if uc (modify-category-entry uc ?v))
700          (if lc (modify-category-entry lc ?v)))
701      (setq i (1+ i))))      (setq i (1+ i))))
702    
703  ;; Unicode (mule-unicode-0100-24ff)  ;; Unicode (mule-unicode-0100-24ff)

Legend:
Removed from v.1.35.2.7  
changed lines
  Added in v.1.35.2.8

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