From 539c55ed63e93148e58fc41bd1943a9e1c663518 Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Thu, 22 Jan 1998 01:48:25 +0000
Subject: [PATCH] Register coding-priority key in language-info-alist.

---
 lisp/language/english.el  | 18 +++++++++++++++---
 lisp/language/ethiopic.el |  4 +++-
 2 files changed, 18 insertions(+), 4 deletions(-)

diff --git a/lisp/language/english.el b/lisp/language/english.el
index 5e7ec7d6bea..b0a03a1028c 100644
--- a/lisp/language/english.el
+++ b/lisp/language/english.el
@@ -44,6 +44,7 @@ The default status is as follows.
   bound to each category are as follows
 	coding category			coding system
 	--------------------------------------------------
+	coding-category-iso-7-tight	iso-2022-jp
 	coding-category-iso-7		iso-2022-7bit
 	coding-category-iso-8-1		iso-latin-1
 	coding-category-iso-8-2		iso-latin-1
@@ -58,7 +59,8 @@ The default status is as follows.
   (interactive)
   (setq-default enable-multibyte-characters t)
 
-  (setq coding-category-iso-7		'iso-2022-7bit
+  (setq coding-category-iso-7-tight	'iso-2022-jp
+	coding-category-iso-7		'iso-2022-7bit
 	coding-category-iso-8-1		'iso-latin-1
 	coding-category-iso-8-2		'iso-latin-1
 	coding-category-iso-7-else	'iso-2022-7bit-lock
@@ -70,7 +72,8 @@ The default status is as follows.
 	coding-category-binary		'no-conversion)
 
   (set-coding-priority
-   '(coding-category-iso-7
+   '(coding-category-iso-7-tight
+     coding-category-iso-7
      coding-category-iso-8-2
      coding-category-iso-8-1
      coding-category-iso-7-else
@@ -93,7 +96,16 @@ The default status is as follows.
 (set-language-info-alist
  "English" '((setup-function . setup-english-environment)
 	     (tutorial . "TUTORIAL")
-	     (charset . (ascii))
+	     (charset ascii)
+	     (coding-priority iso-2022-7bit
+			      iso-latin-1
+			      iso-2022-7bit-lock
+			      iso-2022-8bit-ss2
+			      emacs-mule
+			      raw-text
+			      japanese-shift-jis
+			      chinese-big5
+			      no-conversion)
 	     (sample-text . "Hello!, Hi!, How are you?")
 	     (documentation . "\
 Nothing special is needed to handle English.")
diff --git a/lisp/language/ethiopic.el b/lisp/language/ethiopic.el
index 12a3d10a721..6550c1d2785 100644
--- a/lisp/language/ethiopic.el
+++ b/lisp/language/ethiopic.el
@@ -50,7 +50,9 @@
 
 (set-language-info-alist
  "Ethiopic" '((setup-function . setup-ethiopic-environment)
-	      (charset . (ethiopic))
+	      (charset ethiopic)
+	      (coding-system iso-2022-7bit)
+	      (coding-priority iso-2022-7bit)
 	      (sample-text . "$(3$O#U!.(B")
 	      (documentation . t)))
 
-- 
2.39.2