(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 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))
@@ -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))