Mercurial > emacs
changeset 24866:84d705e026b4
(coding-system-eol-type-mnemonic):
Docstring modified. Return a string.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 17 Jun 1999 12:12:47 +0000 |
| parents | a4b8bb7bed21 |
| children | 4daf369d28c0 |
| files | lisp/international/mule-util.el |
| diffstat | 1 files changed, 10 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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)