From: Kenichi Handa <handa@m17n.org>
Date: Thu, 28 Aug 1997 10:49:48 +0000 (+0000)
Subject: (make-coding-system): Make TYPE 5 means
X-Git-Tag: emacs-20.1~342
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cd9c317785ccf2e637477ef17872772f284e1651;p=emacs.git

(make-coding-system): Make TYPE 5 means
raw-text.
(after-insert-file-set-buffer-file-coding-system): Set
enable-multibyte-characters to nil if we read a file with
no-conversion or raw-text-XXXX.
---

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index b3bb51a6439..30063dd5a9a 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -352,7 +352,8 @@ TYPE is an integer value indicating the type of coding-system as follows:
   1: Shift-JIS (or MS-Kanji) used mainly on Japanese PC,
   2: ISO-2022 including many variants,
   3: Big5 used mainly on Chinese PC,
-  4: private, CCL programs provide encoding/decoding algorithm.
+  4: private, CCL programs provide encoding/decoding algorithm,
+  5: Raw-text, which means that text contains random 8-bit codes. 
 MNEMONIC is a character to be displayed on mode line for the coding-system.
 DOC-STRING is a documentation string for the coding-system.
 FLAGS specifies more precise information of each TYPE.
@@ -393,7 +394,7 @@ FLAGS specifies more precise information of each TYPE.
   ;; At first, set a value of `coding-system' property.
   (let ((coding-spec (make-vector 5 nil))
 	coding-category)
-    (if (or (not (integerp type)) (< type 0) (> type 4))
+    (if (or (not (integerp type)) (< type 0) (> type 5))
 	(error "TYPE argument must be 0..4"))
     (if (or (not (integerp mnemonic)) (<= mnemonic ? ) (> mnemonic 127))
 	(error "MNEMONIC arguemnt must be a printable character."))
@@ -461,7 +462,9 @@ FLAGS specifies more precise information of each TYPE.
 		    (vectorp (car flags))
 		    (vectorp (cdr flags)))
 	       (aset coding-spec 4 flags)
-	     (error "Invalid FLAGS argument for TYPE 4 (CCL)"))))
+	     (error "Invalid FLAGS argument for TYPE 4 (CCL)")))
+	  (t				; i.e. (= type 5)
+	   (setq coding-category 'coding-category-raw-text)))
     (put coding-system 'coding-system coding-spec)
     (put coding-system 'coding-category coding-category)
     (put coding-category 'coding-systems
@@ -471,7 +474,7 @@ FLAGS specifies more precise information of each TYPE.
   ;; of subsidiary coding systems, each corresponds to a coding system
   ;; for the detected end-of-line format.
   (put coding-system 'eol-type
-       (if (<= type 3)
+       (if (or (<= type 3) (= type 5))
 	   (make-subsidiary-coding-system coding-system)
 	 0)))
 
@@ -648,6 +651,12 @@ function by default."
 	    (modified-p (buffer-modified-p)))
 	(if coding-system
 	    (set-buffer-file-coding-system coding-system))
+	(if (or (eq coding-system 'no-conversion)
+		(eq (coding-system-type coding-system) 5))
+	    ;; It seems that random 8-bit codes are read.  We had
+	    ;; better edit this buffer without multibyte character
+	    ;; facility.
+	    (setq enable-multibyte-characters nil))
 	(set-buffer-modified-p modified-p)))
   nil)