Mercurial > emacs

comparison lisp/international/codepage.el @ 24009:d026025237b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cp-coding-system-for-codepage-1): Add the valid-codes property.
author Eli Zaretskii <eliz@gnu.org>
date Wed, 06 Jan 1999 10:37:07 +0000
parents 4ef8ec98dd43
children a5d31e58291b
comparison
equal deleted inserted replaced
24008:1d70b06238e8 24009:d026025237b5
108 (make-coding-system 108 (make-coding-system
109 coding 4 mnemonic 109 coding 4 mnemonic
110 (concat "8-bit encoding of " (symbol-name iso-name) 110 (concat "8-bit encoding of " (symbol-name iso-name)
111 " characters using IBM codepage " coding-name) 111 " characters using IBM codepage " coding-name)
112 (cons ccl-decoder-unix ccl-encoder-unix) 112 (cons ccl-decoder-unix ccl-encoder-unix)
113 `((safe-charsets ascii ,iso-name))) 113 `((safe-charsets ascii ,iso-name)
114 (valid-codes (0 . 255))))
114 ;;; Make coding systems CODING-unix, CODING-dos, CODING-mac. 115 ;;; Make coding systems CODING-unix, CODING-dos, CODING-mac.
115 (make-subsidiary-coding-system coding) 116 (make-subsidiary-coding-system coding)
116 (put coding 'eol-type (vector (intern (format "%s-unix" coding)) 117 (put coding 'eol-type (vector (intern (format "%s-unix" coding))
117 (intern (format "%s-dos" coding)) 118 (intern (format "%s-dos" coding))
118 (intern (format "%s-mac" coding)))) 119 (intern (format "%s-mac" coding))))