/[emacs]/emacs/lisp/international/mule.el
ViewVC logotype

Diff of /emacs/lisp/international/mule.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.166 by lektu, Tue Nov 5 10:42:25 2002 UTC revision 1.167 by handa, Wed Nov 6 01:07:34 2002 UTC
# Line 516  coding system whose eol-type is N." Line 516  coding system whose eol-type is N."
516  (defun coding-system-eol-type-mnemonic (coding-system)  (defun coding-system-eol-type-mnemonic (coding-system)
517    "Return the string indicating end-of-line format of CODING-SYSTEM."    "Return the string indicating end-of-line format of CODING-SYSTEM."
518    (let* ((eol-type (coding-system-eol-type coding-system))    (let* ((eol-type (coding-system-eol-type coding-system))
519           (val (cond ((vectorp eol-type) eol-mnemonic-undecided)           (val (cond ((eq eol-type 0) eol-mnemonic-unix)
                     ((eq eol-type 0) eol-mnemonic-unix)  
520                      ((eq eol-type 1) eol-mnemonic-dos)                      ((eq eol-type 1) eol-mnemonic-dos)
521                      ((eq eol-type 2) eol-mnemonic-mac)                      ((eq eol-type 2) eol-mnemonic-mac)
522                      (t "-"))))                      (t eol-mnemonic-undecided))))
523      (if (stringp val)      (if (stringp val)
524          val          val
525        (char-to-string val))))        (char-to-string val))))

Legend:
Removed from v.1.166  
changed lines
  Added in v.1.167

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26