[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/international/mule.el

From: Kenichi Handa
Subject: [Emacs-diffs] Changes to emacs/lisp/international/mule.el
Date: Tue, 12 Oct 2004 01:31:55 -0400

Index: emacs/lisp/international/mule.el
diff -c emacs/lisp/international/mule.el:1.203 
*** emacs/lisp/international/mule.el:1.203      Sun Jul  4 23:22:28 2004
--- emacs/lisp/international/mule.el    Tue Oct 12 05:24:49 2004
*** 535,540 ****
--- 535,552 ----
                 (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)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]