Mercurial > hg > xemacs-beta

comparison lisp/mule/viet-util.el @ 4072:aa28d959af41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-07-22 22:03:29 by aidan] Add support for non-ISO2022 8 bit fixed-width coding-systems
author aidan
date Sun, 22 Jul 2007 22:04:14 +0000
parents 6c18935dbbf8
children f00192e1cd49 308d34e9f07d
comparison
equal deleted inserted replaced
4071:d607d13fca67 4072:aa28d959af41
39 ;;; Code: 39 ;;; Code:
40 40
41 ;;;###autoload 41 ;;;###autoload
42 (defun viet-encode-viscii-char (char) 42 (defun viet-encode-viscii-char (char)
43 "Return VISCII character code of CHAR if appropriate." 43 "Return VISCII character code of CHAR if appropriate."
44 (get-char-table char viet-viscii-to-external-code-table)) 44 (check-argument-type #'characterp char)
45 (if (eq char ?~)
46 char
47 (setq char (encode-coding-string char 'viscii))
48 (if (and (= 1 (length char))
49 (not (eq (aref char 0) ?~)))
50 (aref char 0))))
45 51
46 ;; VIQR is a menmonic encoding specification for Vietnamese. 52 ;; VIQR is a menmonic encoding specification for Vietnamese.
47 ;; It represents diacritical marks by ASCII characters as follows: 53 ;; It represents diacritical marks by ASCII characters as follows:
48 ;; ------------+----------+-------- 54 ;; ------------+----------+--------
49 ;; mark | mnemonic | example 55 ;; mark | mnemonic | example