From 935f6bf5a18b0f3dc9182fba1a318e0d04d02fe0 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 17 Jun 1999 12:12:47 +0000 Subject: [PATCH] (coding-system-eol-type-mnemonic): Docstring modified. Return a string. --- lisp/international/mule-util.el | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) 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) -- 2.39.2