From ffce76c02568e51f9ab94a68109f3707cdeccbf8 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 12 Oct 2004 05:24:14 +0000 Subject: [PATCH] (coding-system-equal): Moved to mule.el. --- lisp/international/mule-util.el | 13 ------------- 1 file changed, 13 deletions(-) diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el index 1d1fe539116..1700c315187 100644 --- a/lisp/international/mule-util.el +++ b/lisp/international/mule-util.el @@ -314,19 +314,6 @@ Optional 3rd argument NIL-FOR-TOO-LONG non-nil means return nil "Return the value of CODING-SYSTEM's `translation-table-for-encode' property." (coding-system-get coding-system 'translation-table-for-encode)) -;;;###autoload -(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))))))) - ;;;###autoload (defmacro detect-coding-with-priority (from to priority-list) "Detect a coding system of the text between FROM and TO with PRIORITY-LIST. -- 2.39.5