# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 867801990 0
# Node ID 383d11185239033e3c754f03dbcde44aae6202c1
# Parent  b6badf3614ea3fed5032c2f27256a8a8ff622c14
Swap args to define-coding-system-alias.

diff -r b6badf3614ea -r 383d11185239 lisp/language/chinese.el
--- a/lisp/language/chinese.el	Tue Jul 01 23:29:26 1997 +0000
+++ b/lisp/language/chinese.el	Wed Jul 02 00:06:30 1997 +0000
@@ -44,8 +44,8 @@
    nil ascii-eol ascii-cntl seven locking-shift single-shift nil nil nil
    init-bol))
 
-(define-coding-system-alias 'chinese-iso-7bit 'iso-2022-cn)
-(define-coding-system-alias 'chinese-iso-7bit 'iso-2022-cn-ext)
+(define-coding-system-alias 'iso-2022-cn 'chinese-iso-7bit)
+(define-coding-system-alias 'iso-2022-cn-ext 'chinese-iso-7bit)
 
 (define-prefix-command 'describe-chinese-environment-map)
 (define-key-after describe-language-environment-map [Chinese]
@@ -67,8 +67,8 @@
  '((ascii t) chinese-gb2312 chinese-sisheng nil
    nil ascii-eol ascii-cntl nil nil single-shift nil))
 
-(define-coding-system-alias 'chinese-iso-8bit 'cn-gb-2312)
-(define-coding-system-alias 'chinese-iso-8bit 'euc-china)
+(define-coding-system-alias 'cn-gb-2312 'chinese-iso-8bit)
+(define-coding-system-alias 'euc-china 'chinese-iso-8bit)
 
 (make-coding-system
  'chinese-hz 0 ?z
@@ -77,8 +77,8 @@
 (put 'chinese-hz 'post-read-conversion 'post-read-decode-hz)
 (put 'chinese-hz 'pre-write-conversion 'pre-write-encode-hz)
 
-(define-coding-system-alias 'chinese-hz 'hz-gb-2312)
-(define-coding-system-alias 'chinese-hz 'hz)
+(define-coding-system-alias 'hz-gb-2312 'chinese-hz)
+(define-coding-system-alias 'hz 'chinese-hz)
 
 (defun post-read-decode-hz (len)
   (let ((pos (point)))
@@ -113,8 +113,8 @@
 (make-coding-system
  'chinese-big5 3 ?B "BIG5 8-bit encoding for Chinese (MIME:CN-BIG5)")
 
-(define-coding-system-alias 'chinese-big5 'big5)
-(define-coding-system-alias 'chinese-big5 'cn-big5)
+(define-coding-system-alias 'big5 'chinese-big5)
+(define-coding-system-alias 'cn-big5 'chinese-big5)
 
 ;; Big5 font requires special encoding.
 (define-ccl-program ccl-encode-big5-font
diff -r b6badf3614ea -r 383d11185239 lisp/language/cyrillic.el
--- a/lisp/language/cyrillic.el	Tue Jul 01 23:29:26 1997 +0000
+++ b/lisp/language/cyrillic.el	Wed Jul 02 00:06:30 1997 +0000
@@ -37,7 +37,7 @@
  '((ascii t) (cyrillic-iso8859-5 t) nil nil
    nil ascii-eol ascii-cntl nil nil nil nil))
 
-(define-coding-system-alias 'cyrillic-iso-8bit 'iso-8859-5)
+(define-coding-system-alias 'iso-8859-5 'cyrillic-iso-8bit)
 
 ;; KOI-8 staff
 
@@ -93,8 +93,8 @@
  ?R "KOI8 8-bit encoding for Cyrillic (MIME: KOI8-R)"
  (cons ccl-decode-koi8 ccl-encode-koi8))
 
-(define-coding-system-alias 'cyrillic-koi8 'koi8-r)
-(define-coding-system-alias 'cyrillic-koi8 'koi8)
+(define-coding-system-alias 'koi8-r 'cyrillic-koi8)
+(define-coding-system-alias 'koi8 'cyrillic-koi8)
 
 (define-ccl-program ccl-encode-koi8-font
   '(0
@@ -162,7 +162,7 @@
  "ALTERNATIVNYJ 8-bit encoding for Cyrillic"
  (cons ccl-decode-alternativnyj ccl-encode-alternativnyj))
 
-(define-coding-system-alias 'cyrillic-alternativnyj 'alternativnyj)
+(define-coding-system-alias 'alternativnyj 'cyrillic-alternativnyj)
 
 (define-ccl-program ccl-encode-alternativnyj-font
   '(0
diff -r b6badf3614ea -r 383d11185239 lisp/language/european.el
--- a/lisp/language/european.el	Tue Jul 01 23:29:26 1997 +0000
+++ b/lisp/language/european.el	Wed Jul 02 00:06:30 1997 +0000
@@ -73,8 +73,8 @@
  '((ascii t) (latin-iso8859-1 t) nil nil
    nil ascii-eol ascii-cntl))
 
-(define-coding-system-alias 'iso-latin-1 'iso-8859-1)
-(define-coding-system-alias 'iso-latin-1 'ctext)
+(define-coding-system-alias 'iso-8859-1 'iso-latin-1)
+(define-coding-system-alias 'ctext 'iso-latin-1)
 
 (defun setup-latin1-environment ()
   "Set up multilingual environment (MULE) for European Latin-1 users."
@@ -104,7 +104,7 @@
  '((ascii t) (latin-iso8859-2 t) nil nil
    nil ascii-eol ascii-cntl nil nil nil nil))
 
-(define-coding-system-alias 'iso-latin-2 'iso-8859-2)
+(define-coding-system-alias 'iso-8859-2 'iso-latin-2)
 
 (defun setup-latin2-environment ()
   "Set up multilingual environment (MULE) for European Latin-2 users."
@@ -132,7 +132,7 @@
  '((ascii t) (latin-iso8859-3 t) nil nil
    nil ascii-eol ascii-cntl nil nil nil nil))
 
-(define-coding-system-alias 'iso-latin-3 'iso-8859-3)
+(define-coding-system-alias 'iso-8859-3 'iso-latin-3)
 
 (defun setup-latin3-environment ()
   "Set up multilingual environment (MULE) for European Latin-3 users."
@@ -160,7 +160,7 @@
  '((ascii t) (latin-iso8859-4 t) nil nil
    nil ascii-eol ascii-cntl nil nil nil nil))
 
-(define-coding-system-alias 'iso-latin-4 'iso-8859-4)
+(define-coding-system-alias 'iso-8859-4 'iso-latin-4)
 
 (defun setup-latin4-environment ()
   "Set up multilingual environment (MULE) for European Latin-4 users."
@@ -188,7 +188,7 @@
  '((ascii t) (latin-iso8859-9 t) nil nil
    nil ascii-eol ascii-cntl nil nil nil nil))
 
-(define-coding-system-alias 'iso-latin-5 'iso-8859-9)
+(define-coding-system-alias 'iso-8859-9 'iso-latin-5)
 
 (defun setup-latin5-environment ()
   "Set up multilingual environment (MULE) for European Latin-5 users."
diff -r b6badf3614ea -r 383d11185239 lisp/language/greek.el
--- a/lisp/language/greek.el	Tue Jul 01 23:29:26 1997 +0000
+++ b/lisp/language/greek.el	Wed Jul 02 00:06:30 1997 +0000
@@ -34,7 +34,7 @@
  '((ascii t) (greek-iso8859-7 t) nil nil
    nil ascii-eol ascii-cntl nil nil nil nil))
 
-(define-coding-system-alias 'greek-iso-8bit 'iso-8859-7)
+(define-coding-system-alias 'iso-8859-7 'greek-iso-8bit)
 
 (defun setup-greek-environment ()
   "Setup multilingual environment (MULE) for Greek."
diff -r b6badf3614ea -r 383d11185239 lisp/language/hebrew.el
--- a/lisp/language/hebrew.el	Tue Jul 01 23:29:26 1997 +0000
+++ b/lisp/language/hebrew.el	Wed Jul 02 00:06:30 1997 +0000
@@ -34,7 +34,7 @@
  '((ascii t) (hebrew-iso8859-8 t) nil nil
    nil ascii-eol ascii-cntl nil nil nil nil nil t))
 
-(define-coding-system-alias 'hebrew-iso-8bit 'iso-8859-8)
+(define-coding-system-alias 'iso-8859-8 'hebrew-iso-8bit)
 
 (defun setup-hebrew-environment ()
   "Setup multilingual environment (MULE) for Hebrew.
diff -r b6badf3614ea -r 383d11185239 lisp/language/japanese.el
--- a/lisp/language/japanese.el	Tue Jul 01 23:29:26 1997 +0000
+++ b/lisp/language/japanese.el	Wed Jul 02 00:06:30 1997 +0000
@@ -29,15 +29,15 @@
 
 ;;; Code:
 
-(define-coding-system-alias 'iso-2022-7bit 'iso-2022-jp)
-(define-coding-system-alias 'iso-2022-7bit 'junet)
+(define-coding-system-alias 'iso-2022-jp 'iso-2022-7bit)
+(define-coding-system-alias 'junet 'iso-2022-7bit)
 
 (make-coding-system
  'japanese-shift-jis 1 ?S
  "Shift-JIS 8-bit encoding for Japanese (MIME:SHIFT_JIS)")
 
-(define-coding-system-alias 'japanese-shift-jis 'shift_jis)
-(define-coding-system-alias 'japanese-shift-jis 'sjis)
+(define-coding-system-alias 'shift_jis 'japanese-shift-jis)
+(define-coding-system-alias 'sjis 'japanese-shift-jis)
 
 (make-coding-system
  'japanese-iso-7bit-1978-irv 2 ?j
@@ -45,8 +45,8 @@
  '((ascii t) nil nil nil
    short ascii-eol ascii-cntl seven nil nil use-roman use-oldjis))
 
-(define-coding-system-alias 'japanese-iso-7bit-1978-irv 'iso-2022-jp-1978-irv)
-(define-coding-system-alias 'japanese-iso-7bit-1978-irv 'old-jis)
+(define-coding-system-alias 'iso-2022-jp-1978-irv 'japanese-iso-7bit-1978-irv)
+(define-coding-system-alias 'old-jis 'japanese-iso-7bit-1978-irv)
 
 (make-coding-system
  'japanese-iso-8bit 2 ?E
@@ -54,9 +54,9 @@
  '(ascii japanese-jisx0208 katakana-jisx0201 japanese-jisx0212
 	 short ascii-eol ascii-cntl nil nil single-shift))
 
-(define-coding-system-alias 'japanese-iso-8bit 'euc-japan-1990)
-(define-coding-system-alias 'japanese-iso-8bit 'euc-japan)
-(define-coding-system-alias 'japanese-iso-8bit 'euc-jp)
+(define-coding-system-alias 'euc-japan-1990 'japanese-iso-8bit)
+(define-coding-system-alias 'euc-japan 'japanese-iso-8bit)
+(define-coding-system-alias 'euc-jp 'japanese-iso-8bit)
 
 (set-language-info-alist
  "Japanese" '((setup-function . setup-japanese-environment)
diff -r b6badf3614ea -r 383d11185239 lisp/language/korean.el
--- a/lisp/language/korean.el	Tue Jul 01 23:29:26 1997 +0000
+++ b/lisp/language/korean.el	Wed Jul 02 00:06:30 1997 +0000
@@ -34,8 +34,8 @@
  '((ascii t) korean-ksc5601 nil nil
    nil ascii-eol ascii-cntl))
 
-(define-coding-system-alias 'korean-iso-8bit 'euc-kr)
-(define-coding-system-alias 'korean-iso-8bit 'euc-korea)
+(define-coding-system-alias 'euc-kr 'korean-iso-8bit)
+(define-coding-system-alias 'euc-korea 'korean-iso-8bit)
 
 (make-coding-system
  'korean-iso-7bit-lock 2 ?k
@@ -44,7 +44,7 @@
 	 nil ascii-eol ascii-cntl seven locking-shift nil nil nil nil nil
 	 designation-bol))
 
-(define-coding-system-alias 'korean-iso-7bit-lock 'iso-2022-kr)
+(define-coding-system-alias 'iso-2022-kr 'korean-iso-7bit-lock)
 
 (defun setup-korean-environment ()
   "Setup multilingual environment (MULE) for Korean."