From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 5 Nov 2002 10:43:33 +0000 (+0000)
Subject: (coding-system-eol-type-mnemonic): Move to mule.el.
X-Git-Tag: ttn-vms-21-2-B4~12593
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2fb49346bd370863dc869baad025ef39e0367cec;p=emacs.git

(coding-system-eol-type-mnemonic): Move to mule.el.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 000c06f9843..1b7f7fe5bda 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2002-11-05  Juanma Barranquero  <lektu@terra.es>
+
+	* international/mule.el (coding-system-eol-type-mnemonic): Move from
+	mule-util.el.
+
+	* international/mule-util.el (coding-system-eol-type-mnemonic): Move to
+	mule.el.
+
 2002-11-04  Juanma Barranquero  <lektu@terra.es>
 
 	* files.el (find-buffer-visiting): Accept new optional PREDICATE
diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el
index 99847c3986e..9ed3d8a3880 100644
--- a/lisp/international/mule-util.el
+++ b/lisp/international/mule-util.el
@@ -195,7 +195,7 @@ defaults to \"...\"."
 ;; 		(("こhんeにlちlはo" 13 4 ?x "日本語") . "xex日本語")
 ;; 		))
 ;;   (let (ret)
-;;     (condition-case e 
+;;     (condition-case e
 ;; 	(setq ret (apply #'truncate-string-to-width (car test)))
 ;;       (error (setq ret e)))
 ;;     (unless (equal ret (cdr test))
@@ -293,19 +293,6 @@ Optional 3rd argument NIL-FOR-TOO-LONG non-nil means return nil
 
 ;; Coding system related functions.
 
-;;;###autoload
-(defun coding-system-eol-type-mnemonic (coding-system)
-  "Return the string indicating end-of-line format of CODING-SYSTEM."
-  (let* ((eol-type (coding-system-eol-type coding-system))
-	 (val (cond ((vectorp eol-type) eol-mnemonic-undecided)
-		    ((eq eol-type 0) eol-mnemonic-unix)
-		    ((eq eol-type 1) eol-mnemonic-dos)
-		    ((eq eol-type 2) eol-mnemonic-mac)
-		    (t "-"))))
-    (if (stringp val)
-	val
-      (char-to-string val))))
-
 ;;;###autoload
 (defun coding-system-post-read-conversion (coding-system)
   "Return the value of CODING-SYSTEM's `post-read-conversion' property."