Mercurial > hg > xemacs-beta

comparison lisp/mule/ethiopic.el @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents 3b3709405255
children 2923009caf47
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
63 )))) 63 ))))
64 "CCL program to encode an Ethiopic code to code point of Ethiopic font.") 64 "CCL program to encode an Ethiopic code to code point of Ethiopic font.")
65 65
66 ;; (setq font-ccl-encoder-alist 66 ;; (setq font-ccl-encoder-alist
67 ;; (cons (cons "ethiopic" ccl-encode-ethio-font) font-ccl-encoder-alist)) 67 ;; (cons (cons "ethiopic" ccl-encode-ethio-font) font-ccl-encoder-alist))
68 (set-charset-ccl-program 'ethiopic ccl-encode-ethio-font) 68 (set-charset-ccl-program 'ethiopic 'ccl-encode-ethio-font)
69 69
70 (set-language-info-alist 70 (set-language-info-alist
71 "Ethiopic" '((setup-function . setup-ethiopic-environment-internal) 71 "Ethiopic" '((setup-function . setup-ethiopic-environment-internal)
72 (exit-function . exit-ethiopic-environment) 72 (exit-function . exit-ethiopic-environment)
73 (charset ethiopic) 73 (charset ethiopic)