# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 867799766 0
# Node ID b6badf3614ea3fed5032c2f27256a8a8ff622c14
# Parent  425c8fa4227b5f9b435d68e44ccc2763d2056555
Fix calls to define-coding-system-alias.

diff -r 425c8fa4227b -r b6badf3614ea lisp/international/mule-conf.el
--- a/lisp/international/mule-conf.el	Tue Jul 01 23:10:44 1997 +0000
+++ b/lisp/international/mule-conf.el	Tue Jul 01 23:29:26 1997 +0000
@@ -255,7 +255,7 @@
  '((ascii t) t nil nil
    nil ascii-eol ascii-cntl seven locking-shift))
 
-(define-coding-system-alias 'iso-2022-7bit-lock 'iso-2022-int-1)
+(define-coding-system-alias 'iso-2022-int-1 'iso-2022-7bit-lock)
 
 (make-coding-system
  'iso-2022-7bit-lock-ss2 2 ?i
@@ -268,7 +268,7 @@
    short ascii-eol ascii-cntl seven locking-shift single-shift nil nil nil
    init-bol))
 
-(define-coding-system-alias 'iso-2022-7bit-lock-ss2 'iso-2022-cjk)
+(define-coding-system-alias 'iso-2022-cjk 'iso-2022-7bit-lock-ss2)
 
 (make-coding-system
  'iso-2022-8bit-ss2 2 ?@
diff -r 425c8fa4227b -r b6badf3614ea lisp/language/thai.el
--- a/lisp/language/thai.el	Tue Jul 01 23:10:44 1997 +0000
+++ b/lisp/language/thai.el	Tue Jul 01 23:29:26 1997 +0000
@@ -36,8 +36,8 @@
 (put 'thai-tis620 'post-read-conversion 'thai-post-read-conversion)
 (put 'thai-tis620 'pre-write-conversion 'thai-pre-write-conversion)
 
-(define-coding-system-alias 'thai-tis620 'th-tis620)
-(define-coding-system-alias 'thai-tis620 'tis620)
+(define-coding-system-alias 'th-tis620 'thai-tis620)
+(define-coding-system-alias 'tis620 'thai-tis620)
 
 (set-language-info-alist
  "Thai" '((tutorial . "TUTORIAL.th")
diff -r 425c8fa4227b -r b6badf3614ea lisp/language/vietnamese.el
--- a/lisp/language/vietnamese.el	Tue Jul 01 23:10:44 1997 +0000
+++ b/lisp/language/vietnamese.el	Tue Jul 01 23:29:26 1997 +0000
@@ -205,14 +205,14 @@
  "8-bit encoding for Vietnamese VISCII 1.1 (MIME:VISCII)"
  (cons ccl-decode-viscii ccl-encode-viscii))
 
-(define-coding-system-alias 'vietnamese-viscii 'viscii)
+(define-coding-system-alias 'viscii 'vietnamese-viscii)
 
 (make-coding-system
  'vietnamese-vscii 4 ?v
  "8-bit encoding for Vietnamese VSCII-1"
  (cons ccl-decode-vscii ccl-encode-vscii))
 
-(define-coding-system-alias 'vietnamese-vscii 'vscii)
+(define-coding-system-alias 'vscii 'vietnamese-vscii)
 
 (make-coding-system
  'vietnamese-viqr 0 ?q
@@ -221,7 +221,7 @@
 (put 'vietnamese-viqr 'post-read-conversion 'viqr-post-read-conversion)
 (put 'vietnamese-viqr 'pre-write-conversion 'viqr-pre-write-conversion)
 
-(define-coding-system-alias 'vietnamese-viqr 'viqr)
+(define-coding-system-alias 'viqr 'vietnamese-viqr)
 
 (setq font-ccl-encoder-alist
       (cons (cons "viscii" ccl-encode-viscii-font) font-ccl-encoder-alist))