mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-12 02:40:34 -08:00
Code Issues Projects Releases Wiki Activity

(cp-make-coding-system): Fix last

Browse source 
change.
This commit is contained in:
Dave Love 2003-01-10 23:30:52 +00:00
parent 365aee8238
commit 31d98fa0b4
2 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2003-01-10 Dave Love <fx@gnu.org>
* international/code-pages.el (cp-make-coding-system): Fix last
change.
2003-01-10 Kai Gro,A_(Bjohann <kai.grossjohann@uni-duisburg.de>
* dired.el (dired-garbage-files-regexp): Use \\' instead of $ and

9
lisp/international/code-pages.el
View file

@ -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)))