diff options
| author | Kenichi Handa | 1999-06-17 12:12:47 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1999-06-17 12:12:47 +0000 |
| commit | 935f6bf5a18b0f3dc9182fba1a318e0d04d02fe0 (patch) | |
| tree | e07779f8cec5bed394b6d3cceb4bde6a2291450a /lisp | |
| parent | bb89cd2aa032f9229bee803a1a294619053e176d (diff) | |
| download | emacs-935f6bf5a18b0f3dc9182fba1a318e0d04d02fe0.tar.gz emacs-935f6bf5a18b0f3dc9182fba1a318e0d04d02fe0.zip | |
(coding-system-eol-type-mnemonic):
Docstring modified. Return a string.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/international/mule-util.el | 17 |
1 files 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 | |||
| 212 | 212 | ||
| 213 | ;;;###autoload | 213 | ;;;###autoload |
| 214 | (defun coding-system-eol-type-mnemonic (coding-system) | 214 | (defun coding-system-eol-type-mnemonic (coding-system) |
| 215 | "Return mnemonic letter of eol-type of CODING-SYSTEM." | 215 | "Return the string indicating end-of-line format of CODING-SYSTEM." |
| 216 | (let ((eol-type (coding-system-eol-type coding-system))) | 216 | (let* ((eol-type (coding-system-eol-type coding-system)) |
| 217 | (cond ((vectorp eol-type) eol-mnemonic-undecided) | 217 | (val (cond ((vectorp eol-type) eol-mnemonic-undecided) |
| 218 | ((eq eol-type 0) eol-mnemonic-unix) | 218 | ((eq eol-type 0) eol-mnemonic-unix) |
| 219 | ((eq eol-type 1) eol-mnemonic-dos) | 219 | ((eq eol-type 1) eol-mnemonic-dos) |
| 220 | ((eq eol-type 2) eol-mnemonic-mac) | 220 | ((eq eol-type 2) eol-mnemonic-mac) |
| 221 | (t ?-)))) | 221 | (t "-")))) |
| 222 | (if (stringp val) | ||
| 223 | val | ||
| 224 | (char-to-string val)))) | ||
| 222 | 225 | ||
| 223 | ;;;###autoload | 226 | ;;;###autoload |
| 224 | (defun coding-system-post-read-conversion (coding-system) | 227 | (defun coding-system-post-read-conversion (coding-system) |