From: Kenichi Handa <handa@m17n.org>
Date: Thu, 22 Jan 1998 01:42:20 +0000 (+0000)
Subject: Adjusted for the change of the
X-Git-Tag: emacs-20.3~2342
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=40e98681b4c631b738be593e076881321b5e5efa;p=emacs.git

Adjusted for the change of the
format of make-coding-system's 6th argument.  Initialize
coding-category-iso-7-tight to iso-2022-jp.
(oldjis-newjis-jisroman-ascii): New character unification table.
(standarad-character-unification-table-for-decode): Initialize to
`unification-table' property of `oldjis-newjis-jisroman-ascii'.
---

diff --git a/lisp/international/mule-conf.el b/lisp/international/mule-conf.el
index 6a911f6bd39..a083b959e56 100644
--- a/lisp/international/mule-conf.el
+++ b/lisp/international/mule-conf.el
@@ -196,11 +196,14 @@
 
 
 ;; These are tables for unifying characters on decoding and encoding.
+(define-character-unification-table
+  'oldjis-newjis-jisroman-ascii
+  (list (cons (make-char 'japanese-jisx0208-1978)
+	      (make-char 'japanese-jisx0208))
+	(cons (make-char 'latin-jisx0201) (make-char 'ascii))))
+
 (setq standard-character-unification-table-for-decode
-      (make-unification-table
-       (list (cons (make-char 'japanese-jisx0208-1978)
-		   (make-char 'japanese-jisx0208))
-	     (cons (make-char 'latin-jisx0201) (make-char 'ascii)))))
+      (get 'oldjis-newjis-jisroman-ascii 'unification-table))
 
 (setq standard-character-unification-table-for-encode nil)
 
@@ -236,33 +239,35 @@
 (make-coding-system
  'emacs-mule 0 ?=
  "Emacs internal format used in buffer and string"
- nil t)
+ nil
+ '((safe-charsets . t)))
 
 (make-coding-system
  'raw-text 5 ?t
  "Raw text, which means text contains random 8-bit codes."
- nil '(ascii))
+ nil
+ '((safe-charsets . t)))
 
 (make-coding-system
  'iso-2022-7bit 2 ?J
  "ISO 2022 based 7-bit encoding using only G0"
  '((ascii t) nil nil nil
    short ascii-eol ascii-cntl seven)
- t)
+ '((safe-charsets . t)))
 
 (make-coding-system
  'iso-2022-7bit-ss2 2 ?$
  "ISO 2022 based 7-bit encoding using SS2 for 96-charset"
  '((ascii t) nil t nil
    short ascii-eol ascii-cntl seven nil single-shift)
- t)
+ '((safe-charsets . t)))
 
 (make-coding-system
  'iso-2022-7bit-lock 2 ?&
  "ISO-2022 coding system using Locking-Shift for 96-charset"
  '((ascii t) t nil nil
    nil ascii-eol ascii-cntl seven locking-shift)
- t)
+ '((safe-charsets . t)))
 
 (define-coding-system-alias 'iso-2022-int-1 'iso-2022-7bit-lock)
 
@@ -276,11 +281,10 @@
 	chinese-cns11643-6 chinese-cns11643-7)
    short ascii-eol ascii-cntl seven locking-shift single-shift nil nil nil
    init-bol)
- '(ascii
-   japanesejisx0208 japanese-jisx0208-1978 latin-jisx0201
-   korean-ksc5601 chinese-gb2312 chinese-cns11643-1
-   chinese-cns11643-2 chinese-cns11643-3 chinese-cns11643-4
-   chinese-cns11643-5 chinese-cns11643-6 chinese-cns11643-7))
+ '((safe-charsets ascii japanesejisx0208 japanese-jisx0208-1978 latin-jisx0201
+		  korean-ksc5601 chinese-gb2312 chinese-cns11643-1
+		  chinese-cns11643-2 chinese-cns11643-3 chinese-cns11643-4
+		  chinese-cns11643-5 chinese-cns11643-6 chinese-cns11643-7)))
 
 (define-coding-system-alias 'iso-2022-cjk 'iso-2022-7bit-lock-ss2)
 
@@ -289,14 +293,14 @@
  "ISO 2022 based 8-bit encoding using SS2 for 96-charset"
  '((ascii t) nil t nil
    nil ascii-eol ascii-cntl nil nil single-shift)
- t)
+ '((safe-charsets . t)))
 
 (make-coding-system
  'iso-safe 2 ?-
  "Convert all characters but ASCII to `?'."
  '(ascii nil nil nil
    nil ascii-eol ascii-cntl nil nil nil nil nil nil nil nil t)
- '(ascii))
+ '((safe-charsets ascii)))
 
 ;; Use iso-safe for terminal output if some other coding system is
 ;; specified explicitely.
@@ -326,6 +330,7 @@
 (setq coding-category-emacs-mule	'emacs-mule
       coding-category-sjis		'japanese-shift-jis
       coding-category-iso-7		'iso-2022-7bit
+      coding-category-iso-7-tight	'iso-2022-jp
       coding-category-iso-8-1		'iso-latin-1
       coding-category-iso-8-2		'japanese-iso-8bit
       coding-category-iso-7-else	'iso-2022-7bit-lock
@@ -335,7 +340,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-1
    coding-category-iso-8-2
    coding-category-iso-7-else