Mercurial > hg > xemacs-beta

comparison lisp/mule/ethio-util.el @ 4021:cef5f57bb9e2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-06-21 13:39:08 by aidan] '(lambda ...) -> #'(lambda ...), for the sake of style and the byte compiler.
author aidan
date Thu, 21 Jun 2007 13:39:36 +0000
parents 2c5142751000
children e29fcfd8df5f
comparison
equal deleted inserted replaced
4020:77df2f1e36fd 4021:cef5f57bb9e2
1054 (aset ethio-fidel-to-sera-map 463 "`?")) 1054 (aset ethio-fidel-to-sera-map 463 "`?"))
1055 (aset ethio-fidel-to-sera-map 359 "`?") 1055 (aset ethio-fidel-to-sera-map 359 "`?")
1056 (aset ethio-fidel-to-sera-map 463 "?")) 1056 (aset ethio-fidel-to-sera-map 463 "?"))
1057 1057
1058 (mapcar 1058 (mapcar
1059 '(lambda (x) 1059 #'(lambda (x)
1060 (aset (aref ethio-fidel-to-sera-map x) 1060 (aset (aref ethio-fidel-to-sera-map x)
1061 2 1061 2
1062 (if ethio-W-sixth-always ?' ?u))) 1062 (if ethio-W-sixth-always ?' ?u)))
1063 '(77 93 141 181 197 277 440 441 442 443 444 457)) 1063 '(77 93 141 181 197 277 440 441 442 443 444 457))
1064 1064
1065 (if (ethio-prefer-amharic-p) 1065 (if (ethio-prefer-amharic-p)
1066 (aset ethio-fidel-to-sera-map 160 "a") 1066 (aset ethio-fidel-to-sera-map 160 "a")
1067 (aset ethio-fidel-to-sera-map 160 "e")) 1067 (aset ethio-fidel-to-sera-map 160 "e"))