From: Kenichi Handa Date: Mon, 22 Feb 1999 01:59:01 +0000 (+0000) Subject: (cp-coding-system-for-codepage-1): Put X-Git-Tag: emacs-20.4~578 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bd72be60b4a9dfb84bfc090cf1c9f98fc7ea6f89;p=emacs.git (cp-coding-system-for-codepage-1): Put charset-origin-alist property to a coding system for the codepage. --- diff --git a/lisp/international/codepage.el b/lisp/international/codepage.el index 9d5e7872cb6..6f595c61b90 100644 --- a/lisp/international/codepage.el +++ b/lisp/international/codepage.el @@ -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))