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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 000c06f9843e2a3761df55e4150cbf1ff773298b..1b7f7fe5bda76f5fa292021c038a44adf0f47d3b 100644 (file)
--- 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 99847c3986e6f4b04970d188656b90ae7f4d9216..9ed3d8a388073b590fcf9a699f7e74a4e46c0d8b 100644 (file)
--- a/lisp/international/mule-util.el
+++ b/lisp/international/mule-util.el
@@ -195,7 +195,7 @@ defaults to \"...\"."
 ;;             (("\e$B$3\e(Bh\e$B$s\e(Be\e$B$K\e(Bl\e$B$A\e(Bl\e$B$O\e(Bo" 13 4 ?x "\e$BF|K\8l\e(B") . "xex\e$BF|K\8l\e(B")
 ;;             ))
 ;;   (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
 \f
 ;; 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."