Commit 2e729bfa authored by Juanma Barranquero's avatar Juanma Barranquero

(coding-system-eol-type-mnemonic): Move from mule-util.el.

parent e8bee052
......@@ -513,6 +513,18 @@ detected automatically. Nth element of the vector is the subsidiary
coding system whose eol-type is N."
(get coding-system 'eol-type))
(defun coding-system-eol-type-mnemonic (coding-system)
"Return the string indicating end-of-line format of CODING-SYSTEM."
(let* ((eol-type (coding-system-eol-type coding-system))
(val (cond ((vectorp eol-type) eol-mnemonic-undecided)
((eq eol-type 0) eol-mnemonic-unix)
((eq eol-type 1) eol-mnemonic-dos)
((eq eol-type 2) eol-mnemonic-mac)
(t "-"))))
(if (stringp val)
val
(char-to-string val))))
(defun coding-system-lessp (x y)
(cond ((eq x 'no-conversion) t)
((eq y 'no-conversion) nil)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment