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

charset-origin-alist property to a coding system for the codepage.

1 files changed, 2 insertions, 1 deletions

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))