From: Kenichi Handa Date: Wed, 6 Nov 2002 01:07:49 +0000 (+0000) Subject: (coding-system-eol-type-mnemonic): Use X-Git-Tag: ttn-vms-21-2-B4~12587 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f4f008275cd9faa9153106e455e4f5b5e2658a9a;p=emacs.git (coding-system-eol-type-mnemonic): Use eol-mnemonic-undecided if CODING-SYSTEM is nil. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 89d42cbeff8..5d25e368957 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-11-06 Kenichi Handa + + * international/mule.el (coding-system-eol-type-mnemonic): Use + eol-mnemonic-undecided if CODING-SYSTEM is nil. + 2002-11-06 Kim F. Storm * info.el (Info-fontify-node): Fixed hiding of *note references diff --git a/lisp/international/mule.el b/lisp/international/mule.el index f325c60b80e..4e45baf0741 100644 --- 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))))