# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1097886308 0
# Node ID 5d1a0637dd8e909c37aaff959b786c74f9a4e3c8
# Parent  1be970d6f282ebe1899fafb02b49e59b917e451a
* international/mule-util.el (coding-system-equal): Move to mule.el.

diff -r 1be970d6f282 -r 5d1a0637dd8e lisp/international/mule-util.el
--- a/lisp/international/mule-util.el	Sat Oct 16 00:23:39 2004 +0000
+++ b/lisp/international/mule-util.el	Sat Oct 16 00:25:08 2004 +0000
@@ -318,19 +318,6 @@
   (coding-system-get coding-system :encode-translation-table))
 
 ;;;###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-plist coding-system-1)
-		  (coding-system-plist 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 with-coding-priority (coding-systems &rest body)
   "Execute BODY like `progn' with CODING-SYSTEMS at the front of priority list.
 CODING-SYSTEMS is a list of coding systems.  See