Commit fe8d896a authored by Dave Love's avatar Dave Love
Browse files

(cp-make-coding-system): Use

utf-translation-table-for-decode, not
utf-8-translation-table-for-decode.
(mule-diag): Require.
parent 2d8a4bbe
...@@ -54,6 +54,8 @@ ...@@ -54,6 +54,8 @@
;;; Code: ;;; Code:
(require 'mule-diag) ; for non-iso-charset-alist
(defun cp-make-translation-table (v) (defun cp-make-translation-table (v)
"Return a translation table made from 128-long vector V. "Return a translation table made from 128-long vector V.
V comprises characters encodable by mule-utf-8." V comprises characters encodable by mule-utf-8."
...@@ -174,7 +176,7 @@ corresponding args of `make-coding-system'. If MNEMONIC isn't given, ...@@ -174,7 +176,7 @@ corresponding args of `make-coding-system'. If MNEMONIC isn't given,
(translate-character ,decoder r0 r1) (translate-character ,decoder r0 r1)
;; Allow fragmentation on decoding -- relevant for ;; Allow fragmentation on decoding -- relevant for
;; Cyrillic, Greek and, possibly Arabic and Hebrew. ;; Cyrillic, Greek and, possibly Arabic and Hebrew.
(translate-character utf-8-translation-table-for-decode r0 r1) (translate-character utf-translation-table-for-decode r0 r1)
(write-multibyte-character r0 r1) (write-multibyte-character r0 r1)
(repeat)))))) (repeat))))))
(ccl-encoder (ccl-encoder
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment