Commit 97b4eba9 authored by Dave Love's avatar Dave Love
Browse files

(indian-script-table)

(ccl-encode-indian-glyph-font): Deleted.
parent f47a2e09
......@@ -40,47 +40,12 @@
(define-coding-system-alias 'devanagari 'in-is13194-devanagari)
(defvar indian-script-table
'[
devanagari
sanskrit
bengali
tamil
telugu
assamese
oriya
kannada
malayalam
gujarati
punjabi
]
"Vector of Indian script names.")
(let ((len (length indian-script-table))
(i 0))
(while (< i len)
(put (aref indian-script-table i) 'indian-glyph-code-offset (* 256 i))
(setq i (1+ i))))
(defvar indian-default-script 'devanagari
"Default script for Indian languages.
Each Indian language environment sets this value
to one of `indian-script-table' (which see).
The default value is `devanagari'.")
(define-ccl-program ccl-encode-indian-glyph-font
`(0
;; Shorten (r1 = (((((r1 - 32) * 96) + r2) - 32) % 256))
(r1 = ((((r1 * 96) + r2) - ,(+ (* 32 96) 32)) % 256))))
;;(setq font-ccl-encoder-alist
;; (cons (cons "-CDAC" 'ccl-encode-indian-glyph-font)
;; font-ccl-encoder-alist))
;;(setq font-ccl-encoder-alist
;; (cons '("ISO10646.*-1" . ccl-encode-unicode-font)
;; font-ccl-encoder-alist))
(provide 'indian)
;;; indian.el ends here
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