Mercurial > emacs

changeset 48049:6382ab89734c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cp-make-coding-system): Use utf-translation-table-for-decode, not utf-8-translation-table-for-decode. (mule-diag): Require.
author Dave Love <fx@gnu.org>
date Mon, 28 Oct 2002 18:43:41 +0000
parents a76d113d3ce2
children 7f760c845427
files lisp/international/code-pages.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/code-pages.el	Mon Oct 28 18:29:36 2002 +0000
+++ b/lisp/international/code-pages.el	Mon Oct 28 18:43:41 2002 +0000
@@ -54,6 +54,8 @@
 
 ;;; Code:
 
+(require 'mule-diag)			; for non-iso-charset-alist
+
 (defun cp-make-translation-table (v)
   "Return a translation table made from 128-long vector V.
 V comprises characters encodable by mule-utf-8."
@@ -174,7 +176,7 @@
 	       (translate-character ,decoder r0 r1)
 	       ;; Allow fragmentation on decoding -- relevant for
 	       ;; 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)
 	       (repeat))))))
 	 (ccl-encoder