From: tomo <tomo>
Date: Thu, 9 Sep 1999 06:54:11 +0000 (+0000)
Subject: Don't define charset `vietnamese-viscii-lower' and
X-Git-Tag: r21-2-19-utf-2000-0_6-1~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fe60d9e4a3d7be54dcd20e78ac732d3ad83d88a9;p=chise%2Fxemacs-chise.git.1

Don't define charset `vietnamese-viscii-lower' and
`vietnamese-viscii-upper' because they are defined as builtin
charsets.
---

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")