[Emacs-diffs] Changes to emacs/lisp/international/mule.el

[Juanma Barranquero]

Index: emacs/lisp/international/mule.el
diff -c emacs/lisp/international/mule.el:1.165 
emacs/lisp/international/mule.el:1.166
*** emacs/lisp/international/mule.el:1.165      Mon Oct 14 05:55:35 2002
--- emacs/lisp/international/mule.el    Tue Nov  5 05:42:25 2002
***************
*** 513,518 ****
--- 513,530 ----
  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)