/[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.203 by handa, Sun Jul 4 23:22:28 2004 UTC revision 1.204 by handa, Tue Oct 12 05:24:49 2004 UTC
# Line 535  coding system whose eol-type is N." Line 535  coding system whose eol-type is N."
535                   (and (not (> (downcase c1) (downcase c2)))                   (and (not (> (downcase c1) (downcase c2)))
536                        (< c1 c2)))))))                        (< c1 c2)))))))
537    
538    (defun coding-system-equal (coding-system-1 coding-system-2)
539      "Return t if and only if CODING-SYSTEM-1 and CODING-SYSTEM-2 are identical.
540    Two coding systems are identical if two symbols are equal
541    or one is an alias of the other."
542      (or (eq coding-system-1 coding-system-2)
543          (and (equal (coding-system-spec coding-system-1)
544                      (coding-system-spec coding-system-2))
545               (let ((eol-type-1 (coding-system-eol-type coding-system-1))
546                     (eol-type-2 (coding-system-eol-type coding-system-2)))
547                 (or (eq eol-type-1 eol-type-2)
548                     (and (vectorp eol-type-1) (vectorp eol-type-2)))))))
549    
550  (defun add-to-coding-system-list (coding-system)  (defun add-to-coding-system-list (coding-system)
551    "Add CODING-SYSTEM to `coding-system-list' while keeping it sorted."    "Add CODING-SYSTEM to `coding-system-list' while keeping it sorted."
552    (if (or (null coding-system-list)    (if (or (null coding-system-list)

Legend:
Removed from v.1.203  
changed lines
  Added in v.1.204

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