Mercurial > emacs
comparison lisp/international/mule-util.el @ 21488:2c0815a83862
(coding-system-eol-type-mnemonic): Return correct eol-type mnemonics
for the nonunix cases.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Mon, 13 Apr 1998 06:30:41 +0000 |
| parents | ef5fd882ca63 |
| children | 90119d523093 |
comparison
equal
deleted
inserted
replaced
| 21487:471d8709f534 | 21488:2c0815a83862 |
|---|---|
| 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 mnemonic letter of eol-type 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 (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-unix) | 219 ((eq eol-type 1) eol-mnemonic-dos) |
| 220 ((eq eol-type 2) eol-mnemonic-unix) | 220 ((eq eol-type 2) eol-mnemonic-mac) |
| 221 (t ?-)))) | 221 (t ?-)))) |
| 222 | 222 |
| 223 ;;;###autoload | 223 ;;;###autoload |
| 224 (defun coding-system-post-read-conversion (coding-system) | 224 (defun coding-system-post-read-conversion (coding-system) |
| 225 "Return the value of CODING-SYSTEM's post-read-conversion property." | 225 "Return the value of CODING-SYSTEM's post-read-conversion property." |