[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/mule.el [emacs-unicode
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/mule.el [emacs-unicode-2] |
Date: |
Thu, 14 Oct 2004 05:19:15 -0400 |
Index: emacs/lisp/international/mule.el
diff -c emacs/lisp/international/mule.el:1.188.2.12
emacs/lisp/international/mule.el:1.188.2.13
*** emacs/lisp/international/mule.el:1.188.2.12 Tue Jul 6 02:56:12 2004
--- emacs/lisp/international/mule.el Thu Oct 14 08:50:09 2004
***************
*** 870,875 ****
--- 870,887 ----
(and (not (> (downcase c1) (downcase c2)))
(< c1 c2)))))))
+ (defun coding-system-equal (coding-system-1 coding-system-2)
+ "Return t if and only if CODING-SYSTEM-1 and CODING-SYSTEM-2 are identical.
+ Two coding systems are identical if two symbols are equal
+ or one is an alias of the other."
+ (or (eq coding-system-1 coding-system-2)
+ (and (equal (coding-system-spec coding-system-1)
+ (coding-system-spec coding-system-2))
+ (let ((eol-type-1 (coding-system-eol-type coding-system-1))
+ (eol-type-2 (coding-system-eol-type coding-system-2)))
+ (or (eq eol-type-1 eol-type-2)
+ (and (vectorp eol-type-1) (vectorp eol-type-2)))))))
+
(defun add-to-coding-system-list (coding-system)
"Add CODING-SYSTEM to `coding-system-list' while keeping it sorted."
(if (or (null coding-system-list)
- [Emacs-diffs] Changes to emacs/lisp/international/mule.el [emacs-unicode-2],
Miles Bader <=