Mercurial > hg > xemacs-beta

diff lisp/mule/viet-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 aa28d959af41
children f00192e1cd49 308d34e9f07d
line wrap: on
line diff
--- a/lisp/mule/viet-util.el	Sat Dec 26 00:20:27 2009 -0600
+++ b/lisp/mule/viet-util.el	Sat Dec 26 21:18:49 2009 -0600
@@ -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: