From bd72be60b4a9dfb84bfc090cf1c9f98fc7ea6f89 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 22 Feb 1999 01:59:01 +0000 Subject: [PATCH] (cp-coding-system-for-codepage-1): Put charset-origin-alist property to a coding system for the codepage. --- lisp/international/codepage.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)) -- 2.39.2