(coding-system-equal): Moved to mule.el.

diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el
index 1d1fe5391164d8cdd8e05c1caf7c7e99dfbb093f..1700c315187f7e599e8bc3cc16323b7be19911e9 100644 (file)
--- 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.