From 2e729bfaa60159556e81ceca36548f9206f2fe26 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 5 Nov 2002 10:42:25 +0000 Subject: [PATCH] (coding-system-eol-type-mnemonic): Move from mule-util.el. --- lisp/international/mule.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 0719a2b2ec4..f325c60b80e 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -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) -- 2.39.2