Mercurial > hg > xemacs-beta

comparison lisp/mule/ethio-util.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 e29fcfd8df5f
children 308d34e9f07d
comparison
equal deleted inserted replaced
5117:3742ea8250b5 5118:e0db3c197671
1053 (aset ethio-fidel-to-sera-map 359 "?") 1053 (aset ethio-fidel-to-sera-map 359 "?")
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 (mapc
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"))
1298 (composite nil) ; geminated or not 1298 (composite nil) ; geminated or not
1299 newch base vowel modulo) 1299 newch base vowel modulo)
1300 1300
1301 (cond 1301 (cond
1302 ;; in case of gemination 1302 ;; in case of gemination
1303 ((eq (char-charset ch) 'composition) 1303 ;; XEmacs change; the (and nil ...) eliminates a warning about using
1304 ;; decompose-composite-char. The name of the composite charset is
1305 ;; composite, anyway, not composition; and it has never worked.
1306 ((and nil (eq (char-charset ch) 'composition))
1304 (setq ch (string-to-char (decompose-composite-char ch)) 1307 (setq ch (string-to-char (decompose-composite-char ch))
1305 composite t)) 1308 composite t))
1306 ;; neither gemination nor fidel 1309 ;; neither gemination nor fidel
1307 ((not (eq (char-charset ch) 'ethiopic)) 1310 ((not (eq (char-charset ch) 'ethiopic))
1308 (error "Not a valid character"))) 1311 (error "Not a valid character")))
1776 1779
1777 ;;;###autoload 1780 ;;;###autoload
1778 (defun ethio-fidel-to-java-buffer nil 1781 (defun ethio-fidel-to-java-buffer nil
1779 "Convert Ethiopic characters into the Java escape sequences. 1782 "Convert Ethiopic characters into the Java escape sequences.
1780 1783
1781 Each escape sequence is of the form \uXXXX, where XXXX is the 1784 Each escape sequence is of the form \\uXXXX, where XXXX is the
1782 character's codepoint (in hex) in Unicode. 1785 character's codepoint (in hex) in Unicode.
1783 1786
1784 If `ethio-java-save-lowercase' is non-nil, use [0-9a-f]. 1787 If `ethio-java-save-lowercase' is non-nil, use [0-9a-f].
1785 Otherwise, [0-9A-F]." 1788 Otherwise, [0-9A-F]."
1786 (let ((ucode)) 1789 (let ((ucode))