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

1 files changed, 0 insertions, 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
@@ -315,19 +315,6 @@ Optional 3rd argument NIL-FOR-TOO-LONG non-nil means return nil
   (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.
 PRIORITY-LIST is an alist of coding categories vs the corresponding