Mercurial > emacs

changeset 20744:48d79ef65489

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Register coding-priority key in language-info-alist.
author Kenichi Handa <handa@m17n.org>
date Thu, 22 Jan 1998 01:48:25 +0000
parents ffa67db916b4
children 00aa1d4fa378
files lisp/language/english.el lisp/language/ethiopic.el
diffstat 2 files changed, 18 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/english.el	Thu Jan 22 01:48:25 1998 +0000
+++ b/lisp/language/english.el	Thu Jan 22 01:48:25 1998 +0000
@@ -44,6 +44,7 @@
   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 @@
   (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 @@
 	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 @@
 (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.")
--- a/lisp/language/ethiopic.el	Thu Jan 22 01:48:25 1998 +0000
+++ b/lisp/language/ethiopic.el	Thu Jan 22 01:48:25 1998 +0000
@@ -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)))