procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Juanma Barranquero 2002-11-05 10:42:25 +00:00
parent e8bee05279
commit 2e729bfaa6
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/international/mule.el
View file

@ -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)