(cp-make-coding-system): Deal with

unencodable characters.

2 files changed, 14 insertions, 0 deletions

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  <fx@gnu.org>
+
+        * 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  <rms@gnu.org>
 
         * 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)))