Mercurial > emacs
changeset 17078:874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Add a section for Lao.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 26 Feb 1997 12:03:35 +0000 |
| parents | 8f8c3d05b158 |
| children | 7f8981eca2f7 |
| files | lisp/international/characters.el |
| diffstat | 1 files changed, 39 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/characters.el Wed Feb 26 11:59:40 1997 +0000 +++ b/lisp/international/characters.el Wed Feb 26 12:03:35 1997 +0000 @@ -25,7 +25,7 @@ ;;; Commentary: ;; This file contains multibyte characters. Save this file always in -;; `coding-system-iso-2022-7'. +;; the coding system `iso-2022-7'. ;;; Predefined categories. @@ -46,6 +46,7 @@ (define-category ?e "Ethiopic (Ge'ez)") (define-category ?v "Vietnamese") (define-category ?i "Indian") +(define-category ?o "Lao") ;; For each group (row) of 2-byte character sets. @@ -68,7 +69,8 @@ (define-category ?5 "vowel") (define-category ?6 "digit") (define-category ?7 "vowel-modifying diacritical mark") -(define-category ?8 "vowel-signs.") +(define-category ?8 "vowel-signs") +(define-category ?9 "semivowel lower") ;; For filling. (define-category ?| "While filling, we can break a line at this character.") @@ -324,6 +326,41 @@ (modify-category-entry (make-char 'korean-ksc5601 43) ?K) (modify-category-entry (make-char 'korean-ksc5601 44) ?Y) +;; Lao character set + +(modify-category-entry (make-char 'lao) ?o) + +(let ((deflist '(;; chars syntax category + ("(1!(B-(1N(B" "w" ?0) ; consonant + ("(1PRS]`(B-(1d(B" "w" ?1) ; vowel base + ("(1QT(B-(1W[m(B" "w" ?2) ; vowel upper + ("(1XY(B" "w" ?3) ; vowel lower + ("(1h(B-(1l(B" "w" ?4) ; tone mark + ("(1\(B" "w" ?9) ; semivowel lower + ("(1p(B-(1y(B" "w" ?0) ; digit and misc + ("(1Of(B" "_" ?0) ; symbol + )) + elm chars len syntax category to ch i) + (while deflist + (setq elm (car deflist)) + (setq chars (car elm) + len (length chars) + syntax (nth 1 elm) + category (nth 2 elm) + i 0) + (while (< i len) + (if (= (aref chars i) ?-) + (setq i (1+ i) + to (sref chars i)) + (setq ch (sref chars i) + to ch)) + (while (<= ch to) + (modify-syntax-entry ch syntax) + (modify-category-entry ch category) + (setq ch (1+ ch))) + (setq i (+ i (char-bytes to)))) + (setq deflist (cdr deflist)))) + ;; Thai character set (TIS620) (modify-category-entry (make-char 'thai-tis620) ?t)