# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 929621567 0
# Node ID 84d705e026b4e02bc82581ee9c8fb79d2e742e85
# Parent  a4b8bb7bed21531e567f31ec1d2d6387fd74f0b2
(coding-system-eol-type-mnemonic):
Docstring modified.  Return a string.

diff -r a4b8bb7bed21 -r 84d705e026b4 lisp/international/mule-util.el
--- a/lisp/international/mule-util.el	Thu Jun 17 12:12:07 1999 +0000
+++ b/lisp/international/mule-util.el	Thu Jun 17 12:12:47 1999 +0000
@@ -212,13 +212,16 @@
 
 ;;;###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)