/[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.28.2.1 by fx, Tue Nov 20 16:53:04 2001 UTC revision 1.28.2.2 by fx, Sun Nov 25 15:12:24 2001 UTC
# Line 275  Line 275 
275                    ("$(5!3(B-$(5!X(B"        "w"     ?0) ; consonant                    ("$(5!3(B-$(5!X(B"        "w"     ?0) ; consonant
276                    ("$(5!Z(B-$(5!g(B"        "w"     ?8) ; matra                    ("$(5!Z(B-$(5!g(B"        "w"     ?8) ; matra
277                    ("$(5!q(B-$(5!z(B"        "w"     ?6) ; digit                    ("$(5!q(B-$(5!z(B"        "w"     ?6) ; digit
                   ;; Unicode equivalents  
                   ("$,15A5B5C(B"      "w"     ?7) ; vowel-modifying diacritical mark  
                                             ; chandrabindu, anuswar, visarga  
                   ("$,15E(B-$,15M(B"        "w"     ?1) ; independent vowel  
                   ("$,15U(B-$,15y(B"        "w"     ?0) ; consonant  
                   ("$,15~(B-$,16)(B"        "w"     ?8) ; matra  
                   ("$,16F(B-$,16O(B"        "w"     ?6) ; digit  
278                    ))                    ))
279        elm chars len syntax category to ch i)        elm chars len syntax category to ch i)
280    (while deflist    (while deflist
# Line 379  Line 372 
372  (modify-category-entry (make-char 'indian-is13194) ?i)  (modify-category-entry (make-char 'indian-is13194) ?i)
373  (modify-category-entry (make-char 'indian-2-column) ?I)  (modify-category-entry (make-char 'indian-2-column) ?I)
374  (modify-category-entry (make-char 'indian-1-column) ?I)  (modify-category-entry (make-char 'indian-1-column) ?I)
375    (let ((c #x901))                        ; Unicode Devanagari range
376      (while (<= c #x970)
377        (modify-category-entry (decode-char 'ucs c) ?i)
378        (setq c (1+ c))))
379    
380  (let ((deflist    (let ((deflist  
381          '(;; chars      syntax  category          '(;; chars      syntax  category
# Line 388  Line 385 
385            ("(53(B-(5X(B"    "w"     ?0) ; consonant            ("(53(B-(5X(B"    "w"     ?0) ; consonant
386            ("(5Z(B-(5g(B"    "w"     ?8) ; matra            ("(5Z(B-(5g(B"    "w"     ?8) ; matra
387            ("(5q(B-(5z(B"    "w"     ?6) ; digit            ("(5q(B-(5z(B"    "w"     ?6) ; digit
388              ;; Unicode equivalents (ranges somewhat extended from the above)
389              ("$,15A5B5C(B"      "w"     ?7) ; vowel-modifying diacritical mark
390                                        ; chandrabindu, anuswar, visarga
391              ("$,15E(B-$,15T(B"        "w"     ?1) ; independent vowel
392              ("$,15U(B-$,15y(B"        "w"     ?0) ; consonant
393              ("$,15~(B-$,16,(B"        "w"     ?8) ; matra
394              ("$,16F(B-$,16O(B"        "w"     ?6) ; digit
395            ))            ))
396        elm chars len syntax category to ch i)        elm chars len syntax category to ch i)
397    (while deflist    (while deflist

Legend:
Removed from v.1.28.2.1  
changed lines
  Added in v.1.28.2.2

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