From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 5 Nov 2002 10:42:25 +0000 (+0000)
Subject: (coding-system-eol-type-mnemonic): Move from mule-util.el.
X-Git-Tag: ttn-vms-21-2-B4~12594
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2e729bfaa60159556e81ceca36548f9206f2fe26;p=emacs.git

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

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)