From: Dave Love <fx@gnu.org>
Date: Sun, 8 Sep 2002 20:31:49 +0000 (+0000)
Subject: (indian-script-table)
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~348
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=97b4eba94a736d2946382db0570b8c5c1536cac7;p=emacs.git

(indian-script-table)
(ccl-encode-indian-glyph-font): Deleted.
---

diff --git a/lisp/language/indian.el b/lisp/language/indian.el
index 210d28694a2..9a6c7c8f5e1 100644
--- a/lisp/language/indian.el
+++ b/lisp/language/indian.el
@@ -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