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)))) |
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 |
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 |
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) |