From 2e21aa274a39252eccb385423de16bd6dc02b5e1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 1 Jul 1997 23:29:26 +0000 Subject: [PATCH] Fix calls to define-coding-system-alias. --- lisp/international/mule-conf.el | 4 ++-- lisp/language/thai.el | 4 ++-- lisp/language/vietnamese.el | 6 +++--- 3 files changed, 7 insertions(+), 7 deletions(-) diff --git a/lisp/international/mule-conf.el b/lisp/international/mule-conf.el index 3d4544e1b96..728d98f19fa 100644 --- a/lisp/international/mule-conf.el +++ b/lisp/international/mule-conf.el @@ -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 --git a/lisp/language/thai.el b/lisp/language/thai.el index c64c4bd21a0..c57ab6c90b4 100644 --- a/lisp/language/thai.el +++ b/lisp/language/thai.el @@ -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 --git a/lisp/language/vietnamese.el b/lisp/language/vietnamese.el index 9363d08249d..51f9bd43134 100644 --- a/lisp/language/vietnamese.el +++ b/lisp/language/vietnamese.el @@ -205,14 +205,14 @@ Both tables are indexed by the position code of Vietnamese characters.") "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 @@ Both tables are indexed by the position code of Vietnamese characters.") (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)) -- 2.39.2