Mercurial > emacs
comparison lisp/international/codepage.el @ 29258:aa05ee69de27
(cp-coding-system-for-codepage-1): Add
eight-bit-graphic and eight-bit-control to safe charsets for cpNNN
coding systems.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sun, 28 May 2000 10:48:13 +0000 |
| parents | 59e5b57b10db |
| children | b722da8919f6 |
comparison
equal
deleted
inserted
replaced
| 29257:dd053bd4d5ca | 29258:aa05ee69de27 |
|---|---|
| 117 (make-coding-system | 117 (make-coding-system |
| 118 coding 4 mnemonic | 118 coding 4 mnemonic |
| 119 (concat "8-bit encoding of " (symbol-name iso-name) | 119 (concat "8-bit encoding of " (symbol-name iso-name) |
| 120 " characters using IBM codepage " coding-name) | 120 " characters using IBM codepage " coding-name) |
| 121 (cons ccl-decoder-unix ccl-encoder-unix) | 121 (cons ccl-decoder-unix ccl-encoder-unix) |
| 122 `((safe-charsets ascii ,iso-name) | 122 `((safe-charsets ascii eight-bit-control eight-bit-graphic ,iso-name) |
| 123 (valid-codes (0 . 255)) | 123 (valid-codes (0 . 255)) |
| 124 (charset-origin-alist ,(list iso-name (symbol-name coding) encoder)))) | 124 (charset-origin-alist ,(list iso-name (symbol-name coding) encoder)))) |
| 125 ;;; Make coding systems CODING-unix, CODING-dos, CODING-mac. | 125 ;;; Make coding systems CODING-unix, CODING-dos, CODING-mac. |
| 126 (make-subsidiary-coding-system coding) | 126 (make-subsidiary-coding-system coding) |
| 127 (put coding 'eol-type (vector (intern (format "%s-unix" coding)) | 127 (put coding 'eol-type (vector (intern (format "%s-unix" coding)) |