Mercurial > emacs
comparison lisp/international/mule-util.el @ 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 | 4c90ffeb71c5 |
children | f2ebccfa87d4 |
comparison
equal
deleted
inserted
replaced
90027:1be970d6f282 | 90028:5d1a0637dd8e |
---|---|
316 (defun coding-system-translation-table-for-encode (coding-system) | 316 (defun coding-system-translation-table-for-encode (coding-system) |
317 "Return the value of CODING-SYSTEM's `encode-translation-table' property." | 317 "Return the value of CODING-SYSTEM's `encode-translation-table' property." |
318 (coding-system-get coding-system :encode-translation-table)) | 318 (coding-system-get coding-system :encode-translation-table)) |
319 | 319 |
320 ;;;###autoload | 320 ;;;###autoload |
321 (defun coding-system-equal (coding-system-1 coding-system-2) | |
322 "Return t if and only if CODING-SYSTEM-1 and CODING-SYSTEM-2 are identical. | |
323 Two coding systems are identical if two symbols are equal | |
324 or one is an alias of the other." | |
325 (or (eq coding-system-1 coding-system-2) | |
326 (and (equal (coding-system-plist coding-system-1) | |
327 (coding-system-plist coding-system-2)) | |
328 (let ((eol-type-1 (coding-system-eol-type coding-system-1)) | |
329 (eol-type-2 (coding-system-eol-type coding-system-2))) | |
330 (or (eq eol-type-1 eol-type-2) | |
331 (and (vectorp eol-type-1) (vectorp eol-type-2))))))) | |
332 | |
333 ;;;###autoload | |
334 (defmacro with-coding-priority (coding-systems &rest body) | 321 (defmacro with-coding-priority (coding-systems &rest body) |
335 "Execute BODY like `progn' with CODING-SYSTEMS at the front of priority list. | 322 "Execute BODY like `progn' with CODING-SYSTEMS at the front of priority list. |
336 CODING-SYSTEMS is a list of coding systems. See | 323 CODING-SYSTEMS is a list of coding systems. See |
337 `set-coding-priority'. This affects the implicit sorting of lists of | 324 `set-coding-priority'. This affects the implicit sorting of lists of |
338 coding sysems returned by operations such as `find-coding-systems-region'." | 325 coding sysems returned by operations such as `find-coding-systems-region'." |