Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/mule/viet-util.el	Sun Jul 22 21:53:08 2007 +0000
+++ b/lisp/mule/viet-util.el	Sun Jul 22 22:04:14 2007 +0000
@@ -41,7 +41,13 @@
 ;;;###autoload
 (defun viet-encode-viscii-char (char)
   "Return VISCII character code of CHAR if appropriate."
-  (get-char-table char viet-viscii-to-external-code-table))
+  (check-argument-type #'characterp char)
+  (if (eq char ?~)
+      char
+    (setq char (encode-coding-string char 'viscii))
+    (if (and (= 1 (length char))
+	     (not (eq (aref char 0) ?~)))
+	(aref char 0))))
 
 ;; VIQR is a menmonic encoding specification for Vietnamese.
 ;; It represents diacritical marks by ASCII characters as follows: