summaryrefslogtreecommitdiff
path: root/lisp/international
diff options
context:
space:
mode:
authorEli Zaretskii <eliz@gnu.org>1999-01-06 10:37:07 +0000
committerEli Zaretskii <eliz@gnu.org>1999-01-06 10:37:07 +0000
commitb8577971b7f5757ad5ec44fd50dc4a5c5e0b61c0 (patch)
treeaf8ef35765587c0dc4d21ff9a9b6237cc84ddfd0 /lisp/international
parent812cad804813f823e6754e846aaf7eeacf26f638 (diff)
downloademacs-b8577971b7f5757ad5ec44fd50dc4a5c5e0b61c0.tar.gz
(cp-coding-system-for-codepage-1): Add the valid-codes property.
Diffstat (limited to 'lisp/international')
-rw-r--r--lisp/international/codepage.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/international/codepage.el b/lisp/international/codepage.el
index 4816fce0f57..a804792385d 100644
--- a/lisp/international/codepage.el
+++ b/lisp/international/codepage.el
@@ -110,7 +110,8 @@ variety is actually just an alias for the -unix variety)."
(concat "8-bit encoding of " (symbol-name iso-name)
" characters using IBM codepage " coding-name)
(cons ccl-decoder-unix ccl-encoder-unix)
- `((safe-charsets ascii ,iso-name)))
+ `((safe-charsets ascii ,iso-name)
+ (valid-codes (0 . 255))))
;;; Make coding systems CODING-unix, CODING-dos, CODING-mac.
(make-subsidiary-coding-system coding)
(put coding 'eol-type (vector (intern (format "%s-unix" coding))