(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 82114740c20beb7ce7e6e9c1a0c34c7627abed72..0a06815c8809087780d84b8e137bc462f77fd8c7 100644 (file)
--- 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)