Mercurial > hg > xemacs-beta

comparison lisp/mule/ethiopic.el @ 5118:e0db3c197671 ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge up to latest default branch, doesn't compile yet
author Ben Wing <ben@xemacs.org>
date Sat, 26 Dec 2009 21:18:49 -0600
parents aa28d959af41
children 308d34e9f07d
comparison
equal deleted inserted replaced
5117:3742ea8250b5 5118:e0db3c197671
30 30
31 ;; Ethiopic characters (Amahric and Tigrigna). 31 ;; Ethiopic characters (Amahric and Tigrigna).
32 (make-charset 'ethiopic "Ethiopic characters" 32 (make-charset 'ethiopic "Ethiopic characters"
33 '(dimension 33 '(dimension
34 2 34 2
35 registry "Ethiopic-Unicode" 35 registries ["Ethiopic-Unicode"]
36 chars 94 36 chars 94
37 columns 2 37 columns 2
38 direction l2r 38 direction l2r
39 final ?3 39 final ?3
40 graphic 0 40 graphic 0
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)
78 (charset ethiopic) 76 (charset ethiopic)
79 (coding-system iso-2022-7bit) 77 (coding-system iso-2022-7bit)
80 (coding-priority iso-2022-7bit) 78 (coding-priority iso-2022-7bit)
81 (input-method . "ethiopic") 79 ;; (input-method . "ethiopic")
82 (features ethio-util) 80 (features ethio-util)
83 (sample-text . "$(3$Q#U!.(B") 81 (sample-text . "$(3$Q#U!.(B")
84 (documentation . t))) 82 (documentation . t)))
85 83
84 ;; In a more ideal world, we could set the default face fallback from here
85 ;; to use one of the misc-fixed sizes that handles Ethiopic.
86
86 ;;; ethiopic.el ends here 87 ;;; ethiopic.el ends here