# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 919648741 0
# Node ID 766feaa457a98de9f0e8d9cd726bdc26fb781dfd
# Parent  fa97a69b1d3c6691a0a664cfbdf496f7d4a7dac6
(cp-coding-system-for-codepage-1): Put
charset-origin-alist property to a coding system for the codepage.

diff -r fa97a69b1d3c -r 766feaa457a9 lisp/international/codepage.el
--- a/lisp/international/codepage.el	Sun Feb 21 21:11:07 1999 +0000
+++ b/lisp/international/codepage.el	Mon Feb 22 01:59:01 1999 +0000
@@ -116,7 +116,8 @@
 	       " 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))