From: Kenichi Handa <handa@m17n.org>
Date: Thu, 17 Jun 1999 12:12:47 +0000 (+0000)
Subject: (coding-system-eol-type-mnemonic):
X-Git-Tag: emacs-20.4~83
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=935f6bf5a18b0f3dc9182fba1a318e0d04d02fe0;p=emacs.git

(coding-system-eol-type-mnemonic):
Docstring modified.  Return a string.
---

diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el
index 82114740c20..0a06815c880 100644
--- a/lisp/international/mule-util.el
+++ b/lisp/international/mule-util.el
@@ -212,13 +212,16 @@ Optional 3rd argument NIL-FOR-TOO-LONG non-nil means return nil
 
 ;;;###autoload
 (defun coding-system-eol-type-mnemonic (coding-system)
-  "Return mnemonic letter of eol-type of CODING-SYSTEM."
-  (let ((eol-type (coding-system-eol-type coding-system)))
-    (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 ?-))))
+  "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)