# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1036492945 0
# Node ID f1434b395146e022e31267bfe49fe332137b07d3
# Parent  af5c7876e7411af499297c5f2f7b7432c0ebee1a
(coding-system-eol-type-mnemonic): Move from mule-util.el.

diff -r af5c7876e741 -r f1434b395146 lisp/international/mule.el
--- a/lisp/international/mule.el	Tue Nov 05 07:23:26 2002 +0000
+++ b/lisp/international/mule.el	Tue Nov 05 10:42:25 2002 +0000
@@ -513,6 +513,18 @@
 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)