martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(cp-coding-system-for-codepage-1): Put

Browse Source 
charset-origin-alist property to a coding system for the codepage.
This commit is contained in:
Kenichi Handa
1999-02-22 01:59:01 +00:00
parent 9b4b0c9ef9
commit bd72be60b4
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/international/codepage.el
View File

@@ -116,7 +116,8 @@ variety is actually just an alias for the -unix variety)."
" characters using IBM codepage " coding-name)
(cons ccl-decoder-unix ccl-encoder-unix)
`((safe-charsets ascii ,iso-name)
(valid-codes (0 . 255))))
(valid-codes (0 . 255))
(charset-origin-alist ,(list iso-name (symbol-name coding) encoder))))
;;; Make coding systems CODING-unix, CODING-dos, CODING-mac.
(make-subsidiary-coding-system coding)
(put coding 'eol-type (vector (intern (format "%s-unix" coding))