Register coding-priority key in

language-info-alist.

diff --git a/lisp/language/english.el b/lisp/language/english.el
index 5e7ec7d6bea099f1b8a71e3bb093cf1e99e8b75c..b0a03a1028c4f216ec6e41bd4dcc6def3a2745a2 100644 (file)
--- 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 12a3d10a7213d2472e2d03a55c957a61452323f2..6550c1d27856021e2895f4e14ced32b8c928c3a1 100644 (file)
--- 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 . "\e$(3$O#U!.\e(B")
              (documentation . t)))