/[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.165 by lektu, Mon Oct 14 09:55:35 2002 UTC revision 1.166 by lektu, Tue Nov 5 10:42:25 2002 UTC
# Line 513  detected automatically.  Nth element of Line 513  detected automatically.  Nth element of
513  coding system whose eol-type is N."  coding system whose eol-type is N."
514    (get coding-system 'eol-type))    (get coding-system 'eol-type))
515    
516    (defun coding-system-eol-type-mnemonic (coding-system)
517      "Return the string indicating end-of-line format of CODING-SYSTEM."
518      (let* ((eol-type (coding-system-eol-type coding-system))
519             (val (cond ((vectorp eol-type) eol-mnemonic-undecided)
520                        ((eq eol-type 0) eol-mnemonic-unix)
521                        ((eq eol-type 1) eol-mnemonic-dos)
522                        ((eq eol-type 2) eol-mnemonic-mac)
523                        (t "-"))))
524        (if (stringp val)
525            val
526          (char-to-string val))))
527    
528  (defun coding-system-lessp (x y)  (defun coding-system-lessp (x y)
529    (cond ((eq x 'no-conversion) t)    (cond ((eq x 'no-conversion) t)
530          ((eq y 'no-conversion) nil)          ((eq y 'no-conversion) nil)

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

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