# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 950485832 0
# Node ID 5ed8dd27c116e997875e4379b9154ad408e29569
# Parent  fa3a58da3aa93513a8604144fec0dca782da01e4
Setup case table for Vietnamese.

diff -r fa3a58da3aa9 -r 5ed8dd27c116 lisp/international/characters.el
--- a/lisp/international/characters.el	Sun Feb 13 23:50:09 2000 +0000
+++ b/lisp/international/characters.el	Sun Feb 13 23:50:32 2000 +0000
@@ -557,6 +557,14 @@
   (modify-category-entry upper ?l)	; latin characters.
   )
 
+(let ((tbl (standard-case-table))
+      (i 32))
+  (while (< i 128)
+    (set-case-syntax-pair (make-char 'vietnamese-viscii-upper i)
+			  (make-char 'vietnamese-viscii-lower i)
+			  tbl)
+    (setq i (1+ i))))
+
 
 ;;; Setting word boundary.