From 31d98fa0b4c8a23d2fc37333b5067fa3c643ef9b Mon Sep 17 00:00:00 2001 From: Dave Love Date: Fri, 10 Jan 2003 23:30:52 +0000 Subject: [PATCH] (cp-make-coding-system): Fix last change. --- lisp/ChangeLog | 5 +++++ lisp/international/code-pages.el | 9 +++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 504e061643c..9cf56e55285 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-01-10 Dave Love + + * international/code-pages.el (cp-make-coding-system): Fix last + change. + 2003-01-10 Kai Gro,A_(Bjohann * dired.el (dired-garbage-files-regexp): Use \\' instead of $ and diff --git a/lisp/international/code-pages.el b/lisp/international/code-pages.el index eeed98a49d1..3af57bc775b 100644 --- a/lisp/international/code-pages.el +++ b/lisp/international/code-pages.el @@ -107,7 +107,7 @@ CS is a base coding system or alias." (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 @@ 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 = ??))) + (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))) -- 2.39.2