Setup case table for Vietnamese.

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index 170575eae782b1630f35333d03114c1fe809fd57..b10032cd2ff104dae6c74ea59c543bfb7bbd3875 100644 (file)
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -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))))
+
 \f
 ;;; Setting word boundary.