diff lisp/international/characters.el @ 27691:5ed8dd27c116

Setup case table for Vietnamese.
author Kenichi Handa <handa@m17n.org>
date Sun, 13 Feb 2000 23:50:32 +0000
parents c151d3ae1794
children 038c13f83357
line wrap: on
line diff
--- 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.