513 |
coding system whose eol-type is N." |
coding system whose eol-type is N." |
514 |
(get coding-system 'eol-type)) |
(get coding-system 'eol-type)) |
515 |
|
|
516 |
|
(defun coding-system-eol-type-mnemonic (coding-system) |
517 |
|
"Return the string indicating end-of-line format of CODING-SYSTEM." |
518 |
|
(let* ((eol-type (coding-system-eol-type coding-system)) |
519 |
|
(val (cond ((vectorp eol-type) eol-mnemonic-undecided) |
520 |
|
((eq eol-type 0) eol-mnemonic-unix) |
521 |
|
((eq eol-type 1) eol-mnemonic-dos) |
522 |
|
((eq eol-type 2) eol-mnemonic-mac) |
523 |
|
(t "-")))) |
524 |
|
(if (stringp val) |
525 |
|
val |
526 |
|
(char-to-string val)))) |
527 |
|
|
528 |
(defun coding-system-lessp (x y) |
(defun coding-system-lessp (x y) |
529 |
(cond ((eq x 'no-conversion) t) |
(cond ((eq x 'no-conversion) t) |
530 |
((eq y 'no-conversion) nil) |
((eq y 'no-conversion) nil) |