From 5ba511bddffbc625bec5b9a373edb030a1dc672f Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 26 Nov 2002 18:17:33 +0000 Subject: [PATCH] (cp-make-coding-system): Deal with unencodable characters. --- lisp/ChangeLog | 11 +++++++++++ lisp/international/code-pages.el | 3 +++ 2 files changed, 14 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 723a76737d9..a95d0aa6eeb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,14 @@ +2002-11-26 Dave Love + + * language/european.el (encode-mac-roman): Deal with unencodable + characters. + + * language/cyrillic.el (ccl-encode-koi8, ccl-encode-koi8-u) + (ccl-encode-alternativnyj): Deal with unencodable characters. + + * international/code-pages.el (cp-make-coding-system): Deal with + unencodable characters. + 2002-11-24 Richard M. Stallman * mail/sendmail.el (mail-signature): Handle case where diff --git a/lisp/international/code-pages.el b/lisp/international/code-pages.el index f7609659e43..33975a6eb2f 100644 --- a/lisp/international/code-pages.el +++ b/lisp/international/code-pages.el @@ -185,6 +185,9 @@ corresponding args of `make-coding-system'. If MNEMONIC isn't given, ((loop (read-multibyte-character r0 r1) (translate-character ,encoder r0 r1) + (if (r0 != ,(charset-id 'eight-bit-graphic)) + (if (r0 != ,(charset-id 'eight-bit-control)) + (r1 = ??))) (write-repeat r1))))))) `(let ((translation-table (cp-make-translation-table ,v)) (codes (cp-valid-codes ,v))) -- 2.39.2