315 |
(coding-system-get coding-system 'translation-table-for-encode)) |
(coding-system-get coding-system 'translation-table-for-encode)) |
316 |
|
|
317 |
;;;###autoload |
;;;###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 |
|
318 |
(defmacro detect-coding-with-priority (from to priority-list) |
(defmacro detect-coding-with-priority (from to priority-list) |
319 |
"Detect a coding system of the text between FROM and TO with PRIORITY-LIST. |
"Detect a coding system of the text between FROM and TO with PRIORITY-LIST. |
320 |
PRIORITY-LIST is an alist of coding categories vs the corresponding |
PRIORITY-LIST is an alist of coding categories vs the corresponding |