Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-19 19:37:58 +00:00
Code Issues Projects Releases Packages Wiki Activity

Copyright fixed.

Browse source 
(composition-function-table): Support a new character in Unicode
4.1.
This commit is contained in:
Kenichi Handa 2006-01-20 07:38:03 +00:00
parent 3a549e1c83
commit de91bd8ecd
1 changed files with 5 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/language/ethiopic.el
View file

@ -1,12 +1,9 @@
;;; ethiopic.el --- support for Ethiopic -*- coding: utf-8-emacs; -*-
;; Copyright (C) 1997 Free Software Foundation, Inc.
;; Copyright (C) 1995, 2001
;; Copyright (C) 1995, 2001, 2006
;; National Institute of Advanced Industrial Science and Technology (AIST)
;; Registration Number H14PRO021
;; Copyright (C) 2005
;; National Institute of Advanced Industrial Science and Technology (AIST)
;; Registration Number: H15PRO 110
;; Keywords: multilingual, Ethiopic
@ -45,10 +42,10 @@
(r1 *= 94)
(r2 += r1)
(if (r2 < 256)
(r1 = ?\x12)
(r1 = #x12)
(if (r2 < 448)
((r1 = ?\x13) (r2 -= 256))
((r1 = ?\xfd) (r2 -= 208))
((r1 = #x13) (r2 -= 256))
((r1 = #xfd) (r2 -= 208))
))))
"CCL program to encode an Ethiopic code to code point of Ethiopic font.")
@ -84,6 +81,7 @@
;; For automatic composition
(aset composition-function-table ?<3F><EFBFBD><EFBFBD><EFBFBD> 'ethio-composition-function)
(aset composition-function-table ?፟ 'ethio-composition-function)
(provide 'ethiopic)