master a9413dd 2/2: Fix last change

[Eli Zaretskii]

branch: master
commit a9413dd2d12b4ecf1c76c805a24f46e830e1da3d
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    Fix last change
    
    * lisp/international/mule-conf.el (ebcdic-int1, cp256, cp273)
    (ebcdic-be, cp274, ebcdic-br, cp275, ebcdic-cp-dk, ebcdic-cp-no)
    (cp277, ebcdic-cp-fi, ebcdic-cp-se, cp278, ebcdic-cp-it, cp280)
    (ebcdic-jp-e, cp281, ebcdic-cp-es, cp284, ebcdic-cp-gb, cp285)
    (ebcdic-jp-kana, cp290, ebcdic-cp-fr, cp297): Remove charset
    aliases, they are not really needed.
    
    * lisp/language/english.el (ibm275): Move from here...
    * lisp/language/european.el (ibm275): ...to here.
---
 lisp/international/mule-conf.el | 25 -------------------------
 lisp/language/english.el        |  8 --------
 lisp/language/european.el       |  8 ++++++++
 3 files changed, 8 insertions(+), 33 deletions(-)

diff --git a/lisp/international/mule-conf.el b/lisp/international/mule-conf.el
index dd6d032..3b43686 100644
--- a/lisp/international/mule-conf.el
+++ b/lisp/international/mule-conf.el
@@ -1081,8 +1081,6 @@
   :code-space [0 255]
   :mime-charset 'ibm256
   :map "IBM256")
-(define-charset-alias 'ebcdic-int1 'ibm256)
-(define-charset-alias 'cp256 'ibm256)
 
 (define-charset 'ibm273
   "Austrian / German version of EBCDIC"
@@ -1090,7 +1088,6 @@
   :code-space [0 255]
   :mime-charset 'ibm273
   :map "IBM273")
-(define-charset-alias 'cp273 'ibm273)
 
 (define-charset 'ibm274
   "Belgian version of EBCDIC"
@@ -1098,8 +1095,6 @@
   :code-space [0 255]
   :mime-charset 'ibm274
   :map "IBM274")
-(define-charset-alias 'ebcdic-be 'ibm274)
-(define-charset-alias 'cp274 'ibm274)
 
 (define-charset 'ibm275
   "Brazilian version of EBCDIC"
@@ -1107,8 +1102,6 @@
   :code-space [0 255]
   :mime-charset 'ibm275
   :map "IBM275")
-(define-charset-alias 'ebcdic-br 'ibm275)
-(define-charset-alias 'cp275 'ibm275)
 
 (define-charset 'ibm277
   "Danish / Norwegian version of EBCDIC"
@@ -1116,9 +1109,6 @@
   :code-space [0 255]
   :mime-charset 'ibm277
   :map "IBM277")
-(define-charset-alias 'ebcdic-cp-dk 'ibm277)
-(define-charset-alias 'ebcdic-cp-no 'ibm277)
-(define-charset-alias 'cp277 'ibm277)
 
 (define-charset 'ibm278
   "Finnish / Swedish version of EBCDIC"
@@ -1126,9 +1116,6 @@
   :code-space [0 255]
   :mime-charset 'ibm278
   :map "IBM278")
-(define-charset-alias 'ebcdic-cp-fi 'ibm278)
-(define-charset-alias 'ebcdic-cp-se 'ibm278)
-(define-charset-alias 'cp278 'ibm278)
 
 (define-charset 'ibm280
   "Italian version of EBCDIC"
@@ -1136,8 +1123,6 @@
   :code-space [0 255]
   :mime-charset 'ibm270
   :map "IBM280")
-(define-charset-alias 'ebcdic-cp-it 'ibm280)
-(define-charset-alias 'cp280 'ibm280)
 
 (define-charset 'ibm281
   "Japanese-E version of EBCDIC"
@@ -1145,8 +1130,6 @@
   :code-space [0 255]
   :mime-charset 'ibm281
   :map "IBM281")
-(define-charset-alias 'ebcdic-jp-e 'ibm281)
-(define-charset-alias 'cp281 'ibm281)
 
 (define-charset 'ibm284
   "Spanish version of EBCDIC"
@@ -1154,8 +1137,6 @@
   :code-space [0 255]
   :mime-charset 'ibm284
   :map "IBM284")
-(define-charset-alias 'ebcdic-cp-es 'ibm284)
-(define-charset-alias 'cp284 'ibm284)
 
 (define-charset 'ibm285
   "UK english version of EBCDIC"
@@ -1163,8 +1144,6 @@
   :code-space [0 255]
   :mime-charset 'ibm285
   :map "IBM285")
-(define-charset-alias 'ebcdic-cp-gb 'ibm285) ;; how this differs from 
ebcdic-uk?
-(define-charset-alias 'cp285 'ibm285)
 
 (define-charset 'ibm290
   "Japanese katakana version of EBCDIC"
@@ -1172,8 +1151,6 @@
   :code-space [0 255]
   :mime-charset 'ibm290
   :map "IBM290")
-(define-charset-alias 'ebcdic-jp-kana 'ibm290)
-(define-charset-alias 'cp290 'ibm290)
 
 (define-charset 'ibm297
   "French version of EBCDIC"
@@ -1181,8 +1158,6 @@
   :code-space [0 255]
   :mime-charset 'ibm297
   :map "IBM297")
-(define-charset-alias 'ebcdic-cp-fr 'ibm297)
-(define-charset-alias 'cp297 'ibm297)
 
 (define-charset 'ibm1047
   ;; Says groff:
diff --git a/lisp/language/english.el b/lisp/language/english.el
index d5254ef..b7af84c 100644
--- a/lisp/language/english.el
+++ b/lisp/language/english.el
@@ -70,14 +70,6 @@ Nothing special is needed to handle English.")
 (define-coding-system-alias 'ebcdic-int 'ibm038)
 (define-coding-system-alias 'cp038 'ibm038)
 
-(define-coding-system 'ibm275
-  "Brazilian version of EBCDIC"
-  :coding-type 'charset
-  :charset-list '(ibm275)
-  :mnemonic ?*)
-(define-coding-system-alias 'ebcdic-br 'ibm275)
-(define-coding-system-alias 'cp275 'ibm275)
-
 ;; Make "ASCII" an alias of "English" language environment.
 (set-language-info-alist
  "ASCII" (cdr (assoc "English" language-info-alist)))
diff --git a/lisp/language/european.el b/lisp/language/european.el
index 99f0622..1f9a153 100644
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -347,6 +347,14 @@ Latin-9 is sometimes nicknamed `Latin-0'."))
 (define-coding-system-alias 'ebcdic-be 'ibm274)
 (define-coding-system-alias 'cp274 'ibm274)
 
+(define-coding-system 'ibm275
+  "Brazilian version of EBCDIC"
+  :coding-type 'charset
+  :charset-list '(ibm275)
+  :mnemonic ?*)
+(define-coding-system-alias 'ebcdic-br 'ibm275)
+(define-coding-system-alias 'cp275 'ibm275)
+
 (define-coding-system 'ibm277
   "Danish / Norwegian version of EBCDIC"
   :coding-type 'charset