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

unencodable characters.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 723a76737d96d92a8bdab9800bc8122a5cfa2a53..a95d0aa6eebc908b08376f8e4b9d98621e41193f 100644 (file)
--- 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 f7609659e438d588277ed484f97df01e878b2395..33975a6eb2f228be86d0fccb3837501f705efe48 100644 (file)
--- 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)))