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

diff --git a/lisp/mule/viet-chars.el b/lisp/mule/viet-chars.el
index 0df00f9..7b3c4a4 100644
--- a/lisp/mule/viet-chars.el
+++ b/lisp/mule/viet-chars.el
@@ -31,21 +31,23 @@
 ;; read in before the code that creates those sets is evaluated.
 
 ;; Vietnamese VISCII with two tables.
-(make-charset 'vietnamese-viscii-lower "VISCII lower (Vietnamese)"
-	      '(registry "VISCII1.1"
-		dimension 1
-		chars 96
-		final ?1
-		graphic 1
-		))
-
-(make-charset 'vietnamese-viscii-upper "VISCII upper (Vietnamese)"
-	      '(registry "VISCII1.1"
-		dimension 1
-		chars 96
-		final ?2
-		graphic 1
-		))
+(unless (featurep 'utf-2000)
+  (make-charset 'vietnamese-viscii-lower "VISCII lower (Vietnamese)"
+		'(registry "VISCII1.1"
+		  dimension 1
+		  chars 96
+		  final ?1
+		  graphic 1
+		  ))
+
+  (make-charset 'vietnamese-viscii-upper "VISCII upper (Vietnamese)"
+		'(registry "VISCII1.1"
+		  dimension 1
+		  chars 96
+		  final ?2
+		  graphic 1
+		  ))
+  )
 
 (modify-syntax-entry 'vietnamese-viscii-lower "w")
 (modify-syntax-entry 'vietnamese-viscii-upper "w")