(coding-system-eol-type-mnemonic): Use

eol-mnemonic-undecided if CODING-SYSTEM is nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 89d42cbeff8019177bc214c3466c9f4ac6062942..5d25e368957c005fbdd1dd5c366699bac5098fea 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-11-06  Kenichi Handa  <handa@m17n.org>
+
+       * international/mule.el (coding-system-eol-type-mnemonic): Use
+       eol-mnemonic-undecided if CODING-SYSTEM is nil.
+
 2002-11-06  Kim F. Storm  <storm@cua.dk>
 
        * info.el (Info-fontify-node): Fixed hiding of *note references

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index f325c60b80e9fd76a27a531b1bb5a0706edf564f..4e45baf074141042b875208db5956bddda16fe57 100644 (file)
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -516,11 +516,10 @@ coding system whose eol-type is N."
 (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)
+        (val (cond ((eq eol-type 0) eol-mnemonic-unix)
                    ((eq eol-type 1) eol-mnemonic-dos)
                    ((eq eol-type 2) eol-mnemonic-mac)
-                   (t "-"))))
+                   (t eol-mnemonic-undecided))))
     (if (stringp val)
        val
       (char-to-string val))))