Mercurial > emacs
comparison lisp/international/mule-util.el @ 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 | ab39ea2168e7 |
| children | 1f573e26070a |
comparison
equal
deleted
inserted
replaced
| 24865:a4b8bb7bed21 | 24866:84d705e026b4 |
|---|---|
| 210 | 210 |
| 211 ;; Coding system related functions. | 211 ;; Coding system related functions. |
| 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) |
| 225 "Return the value of CODING-SYSTEM's post-read-conversion property." | 228 "Return the value of CODING-SYSTEM's post-read-conversion property." |
| 226 (coding-system-get coding-system 'post-read-conversion)) | 229 (coding-system-get coding-system 'post-read-conversion)) |