mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

Move codes which set syntax and category of

Browse Source 
Indian characters to international/characters.el.
This commit is contained in:
Kenichi Handa 1998-02-04 11:25:01 +00:00
parent a0eb76e1b1
commit 17bf0affd3
1 changed files with 0 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
lisp/language/indian.el
View File

@ -83,37 +83,6 @@
;; (char-to-string (indian-to-devanagari ?(5$(B))
;; "$(5!$(B"
(let ((deflist
'(;; chars syntax category
("(5!"#(B" "w" ?7) ; vowel-modifying diacritical mark
; chandrabindu, anuswar, visarga
("(5$(B-(52(B" "w" ?1) ; base (independent) vowel
("(53(B-(5X(B" "w" ?0) ; consonant
("(5Z(B-(5g(B" "w" ?8) ; matra
("(5q(B-(5z(B" "w" ?6) ; digit
))
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))))
;;; ITRANS
;;
;; ITRANS is one of the most popular method to exchange indian scripts