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

2 files changed, 9 insertions, 14 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 000c06f984..1b7f7fe5bd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2002-11-05  Juanma Barranquero  <[email protected]>
+
+	* 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  <[email protected]>
 
 	* files.el (find-buffer-visiting): Accept new optional PREDICATE
diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el
index 99847c3986..9ed3d8a388 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))
@@ -294,19 +294,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."
   (coding-system-get coding-system 'post-read-conversion))