Mercurial > hg > xemacs-beta

comparison lisp/mule/viet-util.el @ 5473:ac37a5f7e5be

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge with trunk.
author Mats Lidell <matsl@xemacs.org>
date Thu, 17 Mar 2011 23:42:59 +0100
parents 308d34e9f07d f00192e1cd49
children
comparison
equal deleted inserted replaced
5472:e79980ee5efe 5473:ac37a5f7e5be
41 "Return VISCII character code of CHAR if appropriate." 41 "Return VISCII character code of CHAR if appropriate."
42 (check-argument-type #'characterp char) 42 (check-argument-type #'characterp char)
43 (if (eq char ?~) 43 (if (eq char ?~)
44 char 44 char
45 (setq char (encode-coding-string char 'viscii)) 45 (setq char (encode-coding-string char 'viscii))
46 (if (and (= 1 (length char)) 46 (if (and (eql 1 (length char))
47 (not (eq (aref char 0) ?~))) 47 (not (eql (aref char 0) ?~)))
48 (aref char 0)))) 48 (aref char 0))))
49 49
50 ;; VIQR is a menmonic encoding specification for Vietnamese. 50 ;; VIQR is a menmonic encoding specification for Vietnamese.
51 ;; It represents diacritical marks by ASCII characters as follows: 51 ;; It represents diacritical marks by ASCII characters as follows:
52 ;; ------------+----------+-------- 52 ;; ------------+----------+--------