From: Kenichi Handa Date: Tue, 12 Oct 2004 05:26:29 +0000 (+0000) Subject: (coding-system-equal): Moved from mule-util.el. X-Git-Tag: ttn-vms-21-2-B4~4617 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5e2e859aeefcc823f0ae7c60091b4c09156a2da0;p=emacs.git (coding-system-equal): Moved from mule-util.el. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index eb028c98a25..4738fb4812f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2004-10-12 Kenichi Handa + + * international/mule.el (coding-system-equal): Moved from + mule-util.el. + + * international/mule-util.el (coding-system-equal): Moved to + mule.el. + 2004-10-12 Kim F. Storm * kmacro.el (kmacro-insert-counter, kmacro-add-counter): Use and diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 8b4ba9b2ce3..840dd67087f 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -535,6 +535,18 @@ coding system whose eol-type is N." (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)