Mercurial > emacs

changeset 24371:766feaa457a9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cp-coding-system-for-codepage-1): Put charset-origin-alist property to a coding system for the codepage.
author Kenichi Handa <handa@m17n.org>
date Mon, 22 Feb 1999 01:59:01 +0000
parents fa97a69b1d3c
children 2f9d6ac5d426
files lisp/international/codepage.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))