From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 13 Apr 1998 06:30:41 +0000 (+0000)
Subject: (coding-system-eol-type-mnemonic): Return correct eol-type mnemonics
X-Git-Tag: emacs-20.3~1586
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9140684333edd01ed10e53eca6bea33cf2c81431;p=emacs.git

(coding-system-eol-type-mnemonic): Return correct eol-type mnemonics
for the nonunix cases.
---

diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el
index 949d2c766c3..a2b534ada28 100644
--- a/lisp/international/mule-util.el
+++ b/lisp/international/mule-util.el
@@ -216,8 +216,8 @@ Optional 3rd argument NIL-FOR-TOO-LONG non-nil means return nil
   (let ((eol-type (coding-system-eol-type coding-system)))
     (cond ((vectorp eol-type) eol-mnemonic-undecided)
 	  ((eq eol-type 0) eol-mnemonic-unix)
-	  ((eq eol-type 1) eol-mnemonic-unix)
-	  ((eq eol-type 2) eol-mnemonic-unix)
+	  ((eq eol-type 1) eol-mnemonic-dos)
+	  ((eq eol-type 2) eol-mnemonic-mac)
 	  (t ?-))))
 
 ;;;###autoload