Function: coding-system-equal

coding-system-equal is a byte-compiled function defined in mule.el.gz.

Signature

(coding-system-equal CODING-SYSTEM-1 CODING-SYSTEM-2)

Documentation

Return t if and only if CODING-SYSTEM-1 and CODING-SYSTEM-2 are identical.

Two coding systems are identical if both symbols are equal or one is an alias of the other.

Source Code

;; Defined in /usr/src/emacs/lisp/international/mule.el.gz
(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 both 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)))))))