Mercurial > hg > xemacs-beta

comparison lisp/mule/ethiopic-hooks.el @ 138:6608ceec7cf8 r20-2b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b3
author cvs
date Mon, 13 Aug 2007 09:31:46 +0200
parents 131b0175ea99
children 5a88923fcbfe
comparison
equal deleted inserted replaced
137:cae984061f40 138:6608ceec7cf8
49 (r1 += r0) 49 (r1 += r0)
50 (if (r1 < 256) (r0 = 0) ((r1 -= 256) (r0 = 1)))))) 50 (if (r1 < 256) (r0 = 0) ((r1 -= 256) (r0 = 1))))))
51 51
52 (set-charset-ccl-program 'ethiopic ccl-ethiopic) 52 (set-charset-ccl-program 'ethiopic ccl-ethiopic)
53 53
54 (add-hook 'quail-package-alist '("ethio" "quail/ethio")) 54 (add-hook 'quail-package-alist '("ethio" "quail-ethio"))
55 55
56 (define-language-environment 'ethiopic 56 (define-language-environment 'ethiopic
57 "Ethiopic" 57 "Ethiopic"
58 #'(lambda () 58 #'(lambda ()
59 (setq-default quail-current-package 59 (setq-default quail-current-package