From 878c3fe8996e576a5ffa0523fc85f91137edd9cd Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sat, 15 Dec 2001 17:55:23 +0000 Subject: [PATCH] (indian-glyph-char, indian-glyph-max-char) (indian-char-glyph): Moved to ind-util.el --- lisp/language/indian.el | 34 ---------------------------------- 1 file changed, 34 deletions(-) diff --git a/lisp/language/indian.el b/lisp/language/indian.el index e637ea94449..74e7b170d57 100644 --- a/lisp/language/indian.el +++ b/lisp/language/indian.el @@ -66,40 +66,6 @@ Each Indian language environment sets this value to one of `indian-script-table' (which see). The default value is `devanagari'.") -(defun indian-glyph-char (index &optional script) - "Return character of charset `indian-glyph' made from glyph index INDEX. -The variable `indian-default-script' specifies the script of the glyph. -Optional argument SCRIPT, if non-nil, overrides `indian-default-script'. -See also the function `indian-char-glyph'." - (or script - (setq script indian-default-script)) - (let ((offset (get script 'indian-glyph-code-offset))) - (or (integerp offset) - (error "Invalid script name: %s" script)) - (or (and (>= index 0) (< index 256)) - (error "Invalid glyph index: %d" index)) - (setq index (+ offset index)) - (make-char 'indian-glyph (+ (/ index 96) 32) (+ (% index 96) 32)))) - -(defvar indian-glyph-max-char - (indian-glyph-char - 255 (aref indian-script-table (1- (length indian-script-table)))) - "The maximum valid code of characters in the charset `indian-glyph'.") - -(defun indian-char-glyph (char) - "Return information about the glphy code for CHAR of `indian-glyph' charset. -The value is (INDEX . SCRIPT), where INDEX is the glyph index -in the font that Indian script name SCRIPT specifies. -See also the function `indian-glyph-char'." - (let ((split (split-char char)) - code) - (or (eq (car split) 'indian-glyph) - (error "Charset of `%c' is not indian-glyph" char)) - (or (<= char indian-glyph-max-char) - (error "Invalid indian-glyph char: %d" char)) - (setq code (+ (* (- (nth 1 split) 32) 96) (nth 2 split) -32)) - (cons (% code 256) (aref indian-script-table (/ code 256))))) - (define-ccl-program ccl-encode-indian-glyph-font `(0 ;; Shorten (r1 = (((((r1 - 32) * 96) + r2) - 32) % 256)) -- 2.39.2