Mercurial > emacs
changeset 18520:383d11185239
Swap args to define-coding-system-alias.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 02 Jul 1997 00:06:30 +0000 |
| parents | b6badf3614ea |
| children | 47df19cf0eec |
| files | lisp/language/chinese.el lisp/language/cyrillic.el lisp/language/european.el lisp/language/greek.el lisp/language/hebrew.el lisp/language/japanese.el lisp/language/korean.el |
| diffstat | 7 files changed, 32 insertions(+), 32 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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
--- 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."
--- 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."
--- 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.
--- 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)
--- 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."