/[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.147.2.11 by miles, Tue Jul 6 10:26:55 2004 UTC revision 1.147.2.12 by miles, Mon Oct 25 04:19:43 2004 UTC
# Line 537  coding system whose eol-type is N." Line 537  coding system whose eol-type is N."
537                   (and (not (> (downcase c1) (downcase c2)))                   (and (not (> (downcase c1) (downcase c2)))
538                        (< c1 c2)))))))                        (< c1 c2)))))))
539    
540    (defun coding-system-equal (coding-system-1 coding-system-2)
541      "Return t if and only if CODING-SYSTEM-1 and CODING-SYSTEM-2 are identical.
542    Two coding systems are identical if two symbols are equal
543    or one is an alias of the other."
544      (or (eq coding-system-1 coding-system-2)
545          (and (equal (coding-system-spec coding-system-1)
546                      (coding-system-spec coding-system-2))
547               (let ((eol-type-1 (coding-system-eol-type coding-system-1))
548                     (eol-type-2 (coding-system-eol-type coding-system-2)))
549                 (or (eq eol-type-1 eol-type-2)
550                     (and (vectorp eol-type-1) (vectorp eol-type-2)))))))
551    
552  (defun add-to-coding-system-list (coding-system)  (defun add-to-coding-system-list (coding-system)
553    "Add CODING-SYSTEM to `coding-system-list' while keeping it sorted."    "Add CODING-SYSTEM to `coding-system-list' while keeping it sorted."
554    (if (or (null coding-system-list)    (if (or (null coding-system-list)

Legend:
Removed from v.1.147.2.11  
changed lines
  Added in v.1.147.2.12

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