From 5e2e859aeefcc823f0ae7c60091b4c09156a2da0 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 12 Oct 2004 05:26:29 +0000 Subject: [PATCH] (coding-system-equal): Moved from mule-util.el. --- lisp/ChangeLog | 8 ++++++++ lisp/international/mule.el | 12 ++++++++++++ 2 files changed, 20 insertions(+) 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) -- 2.11.4.GIT