Mercurial > hg > xemacs-beta

comparison lisp/mule/ethiopic.el @ 4072:aa28d959af41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-07-22 22:03:29 by aidan] Add support for non-ISO2022 8 bit fixed-width coding-systems
author aidan
date Sun, 22 Jul 2007 22:04:14 +0000
parents 949ac151a10d
children 308d34e9f07d
comparison
equal deleted inserted replaced
4071:d607d13fca67 4072:aa28d959af41
59 ((r1 -= 33) 59 ((r1 -= 33)
60 (r2 -= 33) 60 (r2 -= 33)
61 (r1 *= 94) 61 (r1 *= 94)
62 (r2 += r1) 62 (r2 += r1)
63 (if (r2 < 256) 63 (if (r2 < 256)
64 (r1 = ?\x12) 64 (r1 = #x12)
65 (if (r2 < 448) 65 (if (r2 < 448)
66 ((r1 = ?\x13) (r2 -= 256)) 66 ((r1 = #x13) (r2 -= 256))
67 ((r1 = ?\xfd) (r2 -= 208)) 67 ((r1 = #xfd) (r2 -= 208))
68 )))) 68 ))))
69 "CCL program to encode an Ethiopic code to code point of Ethiopic font.") 69 "CCL program to encode an Ethiopic code to code point of Ethiopic font.")
70 70
71 ;; (setq font-ccl-encoder-alist
72 ;; (cons (cons "ethiopic" ccl-encode-ethio-font) font-ccl-encoder-alist))
73 (set-charset-ccl-program 'ethiopic 'ccl-encode-ethio-font) 71 (set-charset-ccl-program 'ethiopic 'ccl-encode-ethio-font)
74 72
75 (set-language-info-alist 73 (set-language-info-alist
76 "Ethiopic" '((setup-function . setup-ethiopic-environment-internal) 74 "Ethiopic" '((setup-function . setup-ethiopic-environment-internal)
77 (exit-function . exit-ethiopic-environment) 75 (exit-function . exit-ethiopic-environment)