516 |
(defun coding-system-eol-type-mnemonic (coding-system) |
(defun coding-system-eol-type-mnemonic (coding-system) |
517 |
"Return the string indicating end-of-line format of CODING-SYSTEM." |
"Return the string indicating end-of-line format of CODING-SYSTEM." |
518 |
(let* ((eol-type (coding-system-eol-type coding-system)) |
(let* ((eol-type (coding-system-eol-type coding-system)) |
519 |
(val (cond ((vectorp eol-type) eol-mnemonic-undecided) |
(val (cond ((eq eol-type 0) eol-mnemonic-unix) |
|
((eq eol-type 0) eol-mnemonic-unix) |
|
520 |
((eq eol-type 1) eol-mnemonic-dos) |
((eq eol-type 1) eol-mnemonic-dos) |
521 |
((eq eol-type 2) eol-mnemonic-mac) |
((eq eol-type 2) eol-mnemonic-mac) |
522 |
(t "-")))) |
(t eol-mnemonic-undecided)))) |
523 |
(if (stringp val) |
(if (stringp val) |
524 |
val |
val |
525 |
(char-to-string val)))) |
(char-to-string val)))) |