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

[Kenichi Handa]

Index: emacs/lisp/international/mule.el
diff -c emacs/lisp/international/mule.el:1.166 
emacs/lisp/international/mule.el:1.167
*** emacs/lisp/international/mule.el:1.166      Tue Nov  5 05:42:25 2002
--- emacs/lisp/international/mule.el    Tue Nov  5 20:07:34 2002
***************
*** 516,526 ****
  (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))))
--- 516,525 ----
  (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 ((eq eol-type 0) eol-mnemonic-unix)
                    ((eq eol-type 1) eol-mnemonic-dos)
                    ((eq eol-type 2) eol-mnemonic-mac)
!                   (t eol-mnemonic-undecided))))
      (if (stringp val)
        val
        (char-to-string val))))