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

1 files changed, 12 insertions, 0 deletions

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 0719a2b2ec4..f325c60b80e 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -513,6 +513,18 @@ detected automatically.  Nth element of the vector is the subsidiary
 coding system whose eol-type is N."
   (get coding-system 'eol-type))
 
+(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))))
+
 (defun coding-system-lessp (x y)
   (cond ((eq x 'no-conversion) t)
         ((eq y 'no-conversion) nil)