Commit ed459fb6 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

Setup categories for Indian characters.

parent 37ab321e
...@@ -535,38 +535,25 @@ ...@@ -535,38 +535,25 @@
(modify-category-entry (decode-char 'ucs c) ?i) (modify-category-entry (decode-char 'ucs c) ?i)
(setq c (1+ c)))) (setq c (1+ c))))
;;; Commented out since the categories appear not to be used anywhere (let ((l '(;; RANGE CATEGORY MEANINGS
;;; and word syntax is the default. (#x01 #x03 ?7) ; vowel modifier
;; (let ((deflist ; (#x05 #x14 ?1) ; base vowel
;; '(;; chars syntax category (#x15 #x39 ?0) ; consonants
;; ("(5!"#(B" "w" ?7) ; vowel-modifying diacritical mark (#x3e #x4d ?8) ; vowel modifier
;; ; chandrabindu, anuswar, visarga (#x51 #x54 ?4) ; stress/tone mark
;; ("(5$(B-(52(B" "w" ?1) ; base (independent) vowel (#x58 #x5f ?0) ; consonants
;; ("(53(B-(5X(B" "w" ?0) ; consonant (#x60 #x61 ?1) ; base vowel
;; ("(5Z(B-(5g(B" "w" ?8) ; matra (#x62 #x63 ?8) ; vowel modifier
;; ("(5q(B-(5z(B" "w" ?6) ; digit (#x66 #x6f ?6) ; digits
;; )) )))
;; elm chars len syntax category to ch i) (dolist (elt1 '(#x900 #x980 #xa00 #xa80 #xb00 #xb80 #xc00 #xc80 #xd00))
;; (while deflist (dolist (elt2 l)
;; (setq elm (car deflist)) (let* ((from (car elt2))
;; (setq chars (car elm) (counts (1+ (- (nth 1 elt2) from)))
;; len (length chars) (category (nth 2 elt2)))
;; syntax (nth 1 elm) (dotimes (i counts)
;; category (nth 2 elm) (modify-category-entry (decode-char 'ucs (+ elt1 from i))
;; i 0) category))))))
;; (while (< i len)
;; (if (= (aref chars i) ?-)
;; (setq i (1+ i)
;; to (aref chars i))
;; (setq ch (aref chars i)
;; to ch))
;; (while (<= ch to)
;; (modify-syntax-entry ch syntax)
;; (modify-category-entry ch category)
;; (setq ch (1+ ch)))
;; (setq i (1+ i)))
;; (setq deflist (cdr deflist))))
;; Japanese character set (JISX0201-kana, JISX0201-roman, JISX0208, JISX0212) ;; Japanese character set (JISX0201-kana, JISX0201-roman, JISX0208, JISX0212)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment