Mercurial > emacs
changeset 90028:5d1a0637dd8e
* international/mule-util.el (coding-system-equal): Move to mule.el.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sat, 16 Oct 2004 00:25:08 +0000 |
| parents | 1be970d6f282 |
| children | 5658507496a1 |
| files | lisp/international/mule-util.el |
| diffstat | 1 files changed, 0 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- 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