From: Eli Zaretskii <eliz@gnu.org>
Date: Wed, 6 Jan 1999 10:24:17 +0000 (+0000)
Subject: (coding-system-change-eol-conversion,
X-Git-Tag: emacs-20.4~943
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=16afc7b09f1545078a2568e4585b9d2fe7f82d8f;p=emacs.git

(coding-system-change-eol-conversion,
coding-system-change-text-conversion): Don't define here.
---

diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el
index a366123ec25..56b85b1778f 100644
--- a/lisp/international/mule-util.el
+++ b/lisp/international/mule-util.el
@@ -287,50 +287,6 @@ or one is an alias of the other."
 	     (or (eq eol-type-1 eol-type-2)
 		 (and (vectorp eol-type-1) (vectorp eol-type-2)))))))
 
-;;;###autoload
-(defun coding-system-change-eol-conversion (coding-system eol-type)
-  "Return a coding system which differs from CODING-SYSTEM in eol conversion.
-The returned coding system converts end-of-line by EOL-TYPE
-but text as the same way as CODING-SYSTEM.
-EOL-TYPE should be `unix', `dos', `mac', or nil.
-If EOL-TYPE is nil, the returned coding system detects
-how end-of-line is formatted automatically while decoding.
-
-EOL-TYPE can be specified by an integer 0, 1, or 2.
-They means `unix', `dos', and `mac' respectively."
-  (if (symbolp eol-type)
-      (setq eol-type (cond ((eq eol-type 'unix) 0)
-			   ((eq eol-type 'dos) 1)
-			   ((eq eol-type 'mac) 2)
-			   (t eol-type))))
-  (let ((orig-eol-type (coding-system-eol-type coding-system)))
-    (if (vectorp orig-eol-type)
-	(if (not eol-type)
-	    coding-system
-	  (aref orig-eol-type eol-type))
-      (let ((base (coding-system-base coding-system)))
-	(if (not eol-type)
-	    base
-	  (if (= eol-type orig-eol-type)
-	      coding-system
-	    (setq orig-eol-type (coding-system-eol-type base))
-	    (if (vectorp orig-eol-type)
-		(aref orig-eol-type eol-type))))))))
-
-;;;###autoload
-(defun coding-system-change-text-conversion (coding-system coding)
-  "Return a coding system which differs from CODING-SYSTEM in text conversion.
-The returned coding system converts text by CODING
-but end-of-line as the same way as CODING-SYSTEM.
-If CODING is nil, the returned coding system detects
-how text is formatted automatically while decoding."
-  (if (not coding)
-      (coding-system-base coding-system)
-    (let ((eol-type (coding-system-eol-type coding-system)))
-      (coding-system-change-eol-conversion
-       coding
-       (if (numberp eol-type) (aref [unix dos mac] eol-type))))))
-
 ;;;###autoload
 (defmacro detect-coding-with-priority (from to priority-list)
   "Detect a coding system of the text between FROM and TO with PRIORITY-LIST.