From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 2 Jul 1997 00:06:30 +0000 (+0000)
Subject: Swap args to define-coding-system-alias.
X-Git-Tag: emacs-20.1~1426
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=71eabd24ae0b21477265502ecfad14c2b8aacad1;p=emacs.git

Swap args to define-coding-system-alias.
---

diff --git a/lisp/language/chinese.el b/lisp/language/chinese.el
index 4c4392f9b79..a0ad81080cf 100644
--- a/lisp/language/chinese.el
+++ b/lisp/language/chinese.el
@@ -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 --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el
index a4d9aa2b015..922a7e36438 100644
--- a/lisp/language/cyrillic.el
+++ b/lisp/language/cyrillic.el
@@ -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 --git a/lisp/language/european.el b/lisp/language/european.el
index bfb287276af..826b1006da7 100644
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -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 @@ These languages are supported with the Latin-1 (ISO-8859-1) character set:
  '((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 @@ These languages are supported with the Latin-2 (ISO-8859-2) character set:
  '((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 @@ These languages are supported with the Latin-3 (ISO-8859-3) character set:
  '((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 @@ These languages are supported with the Latin-4 (ISO-8859-4) character set:
  '((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 --git a/lisp/language/greek.el b/lisp/language/greek.el
index 5634f2eb437..8cb8f45e828 100644
--- a/lisp/language/greek.el
+++ b/lisp/language/greek.el
@@ -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 --git a/lisp/language/hebrew.el b/lisp/language/hebrew.el
index 91c8ff1c09b..bb28cf86edc 100644
--- a/lisp/language/hebrew.el
+++ b/lisp/language/hebrew.el
@@ -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 --git a/lisp/language/japanese.el b/lisp/language/japanese.el
index 9f192dd088e..77d06d17700 100644
--- a/lisp/language/japanese.el
+++ b/lisp/language/japanese.el
@@ -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 --git a/lisp/language/korean.el b/lisp/language/korean.el
index ef996a54a4c..0a1e767f524 100644
--- a/lisp/language/korean.el
+++ b/lisp/language/korean.el
@@ -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."