Mercurial > emacs

changeset 49143:4be31e60a8a1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cp-make-coding-system): Fix last change.
author Dave Love <fx@gnu.org>
date Fri, 10 Jan 2003 23:29:32 +0000
parents 8dca38bc0261
children b4a9a382b8bf
files lisp/international/code-pages.el
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/code-pages.el	Fri Jan 10 22:24:41 2003 +0000
+++ b/lisp/international/code-pages.el	Fri Jan 10 23:29:32 2003 +0000
@@ -107,7 +107,7 @@
 		   (remq cs (aref char-coding-system-table k)))))
        chars))))
 
-;; Fix things that have been, or might be done by codepage.el.
+;; Fix things that have been, or might be, done by codepage.el.
 (eval-after-load "codepage"
   '(progn
 
@@ -188,9 +188,10 @@
 	     ((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 = ??)))
+	       (if (r0 != ,(charset-id 'ascii))
+		   (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)))