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) |