Mercurial > emacs
changeset 57443:0a99216aefaf
(coding-system-equal): Moved to mule.el.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 12 Oct 2004 05:24:14 +0000 |
| parents | 2d9a1d1ac73d |
| children | 5af5500fd1de |
| 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 Tue Oct 12 02:25:56 2004 +0000 +++ b/lisp/international/mule-util.el Tue Oct 12 05:24:14 2004 +0000 @@ -315,19 +315,6 @@ (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