Sync with r21-2-19-tomo-6-charset-alias-2.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 24d5aad..4519541 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+1999-10-07  MORIOKA Tomohiko  <tomo@etl.go.jp>
+
+       * mule/viet-chars.el (latin-viscii-lower): Renamed from charset
+       `vietnamese-viscii-lower'.
+       (latin-viscii-upper): Renamed from charset
+       `vietnamese-viscii-upper'.
+       (vietnamese-viscii-lower): New alias for charset
+       `latin-viscii-lower'.
+       (vietnamese-viscii-upper): New alias for charset
+       `latin-viscii-upper'.
+
 1999-10-05  MORIOKA Tomohiko  <tomo@etl.go.jp>
 
        * mule/mule-charset.el (default-coded-charset-priority-list):

diff --git a/lisp/mule/viet-chars.el b/lisp/mule/viet-chars.el
index 7b3c4a4..3f935a7 100644 (file)
--- 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")