Mercurial > emacs

comparison lisp/international/codepage.el @ 24371:766feaa457a9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cp-coding-system-for-codepage-1): Put charset-origin-alist property to a coding system for the codepage.
author Kenichi Handa <handa@m17n.org>
date Mon, 22 Feb 1999 01:59:01 +0000
parents 7334c513dc7d
children fe0089dd2d2f
comparison
equal deleted inserted replaced
24370:fa97a69b1d3c 24371:766feaa457a9
114 coding 4 mnemonic 114 coding 4 mnemonic
115 (concat "8-bit encoding of " (symbol-name iso-name) 115 (concat "8-bit encoding of " (symbol-name iso-name)
116 " characters using IBM codepage " coding-name) 116 " characters using IBM codepage " coding-name)
117 (cons ccl-decoder-unix ccl-encoder-unix) 117 (cons ccl-decoder-unix ccl-encoder-unix)
118 `((safe-charsets ascii ,iso-name) 118 `((safe-charsets ascii ,iso-name)
119 (valid-codes (0 . 255)))) 119 (valid-codes (0 . 255))
120 (charset-origin-alist ,(list iso-name (symbol-name coding) encoder))))
120 ;;; Make coding systems CODING-unix, CODING-dos, CODING-mac. 121 ;;; Make coding systems CODING-unix, CODING-dos, CODING-mac.
121 (make-subsidiary-coding-system coding) 122 (make-subsidiary-coding-system coding)
122 (put coding 'eol-type (vector (intern (format "%s-unix" coding)) 123 (put coding 'eol-type (vector (intern (format "%s-unix" coding))
123 (intern (format "%s-dos" coding)) 124 (intern (format "%s-dos" coding))
124 (intern (format "%s-mac" coding)))) 125 (intern (format "%s-mac" coding))))