Commit f4f00827 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

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

eol-mnemonic-undecided if CODING-SYSTEM is nil.
parent cab278f5
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> 2002-11-06 Kim F. Storm <storm@cua.dk>
   
* info.el (Info-fontify-node): Fixed hiding of *note references * info.el (Info-fontify-node): Fixed hiding of *note references
......
...@@ -516,11 +516,10 @@ coding system whose eol-type is N." ...@@ -516,11 +516,10 @@ coding system whose eol-type is N."
(defun coding-system-eol-type-mnemonic (coding-system) (defun coding-system-eol-type-mnemonic (coding-system)
"Return the string indicating end-of-line format of CODING-SYSTEM." "Return the string indicating end-of-line format of CODING-SYSTEM."
(let* ((eol-type (coding-system-eol-type coding-system)) (let* ((eol-type (coding-system-eol-type coding-system))
(val (cond ((vectorp eol-type) eol-mnemonic-undecided) (val (cond ((eq eol-type 0) eol-mnemonic-unix)
((eq eol-type 0) eol-mnemonic-unix)
((eq eol-type 1) eol-mnemonic-dos) ((eq eol-type 1) eol-mnemonic-dos)
((eq eol-type 2) eol-mnemonic-mac) ((eq eol-type 2) eol-mnemonic-mac)
(t "-")))) (t eol-mnemonic-undecided))))
(if (stringp val) (if (stringp val)
val val
(char-to-string val)))) (char-to-string val))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment