X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fviet-chars.el;h=3f935a7816a2e2d94071362a6950b865c63e866f;hb=a2ead21a059d7226776c74ad0d6ca4e2ec43b00f;hp=7b3c4a47becaeb6626ea6d27ce907d213ad6ac84;hpb=fe60d9e4a3d7be54dcd20e78ac732d3ad83d88a9;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/mule/viet-chars.el b/lisp/mule/viet-chars.el
index 7b3c4a4..3f935a7 100644
--- a/lisp/mule/viet-chars.el
+++ b/lisp/mule/viet-chars.el
@@ -32,7 +32,7 @@
 
 ;; Vietnamese VISCII with two tables.
 (unless (featurep 'utf-2000)
-  (make-charset 'vietnamese-viscii-lower "VISCII lower (Vietnamese)"
+  (make-charset 'latin-viscii-lower "VISCII lower (Vietnamese)"
 		'(registry "VISCII1.1"
 		  dimension 1
 		  chars 96
@@ -40,7 +40,7 @@
 		  graphic 1
 		  ))
 
-  (make-charset 'vietnamese-viscii-upper "VISCII upper (Vietnamese)"
+  (make-charset 'latin-viscii-upper "VISCII upper (Vietnamese)"
 		'(registry "VISCII1.1"
 		  dimension 1
 		  chars 96
@@ -49,6 +49,9 @@
 		  ))
   )
 
+(define-charset-alias 'vietnamese-viscii-lower 'latin-viscii-lower)
+(define-charset-alias 'vietnamese-viscii-upper 'latin-viscii-upper)
+
 (modify-syntax-entry 'vietnamese-viscii-lower "w")
 (modify-syntax-entry 'vietnamese-viscii-upper "w")