# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 902020017 0
# Node ID 125bb37b2e27145717846dda2101c10a37e0df7f
# Parent  33987189baf322adb23519343a6817d1db8910a0
(viet-encode-viscii-char): New function.

diff -r 33987189baf3 -r 125bb37b2e27 lisp/language/viet-util.el
--- a/lisp/language/viet-util.el	Sun Aug 02 01:06:57 1998 +0000
+++ b/lisp/language/viet-util.el	Sun Aug 02 01:06:57 1998 +0000
@@ -36,6 +36,12 @@
 ;;; Code:
 
 ;;;###autoload
+(defun viet-encode-viscii-char (char)
+  "Return VISCII character code of CHAR if appropriate."
+  (aref (char-table-extra-slot viet-viscii-nonascii-translation-table 0)
+	char))
+
+;;;###autoload
 (defun setup-vietnamese-environment ()
   "Setup multilingual environment (MULE) for Vietnamese VISCII users."
   (interactive)