# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 919150363 0
# Node ID 6f70c8b3ea9aee69f8ddd786f59c906d6554428f
# Parent  0c8191e60c8061abb674be49c9b6db6a5e01872b
(japanese-shift-jis): Add charset-origin-alist property.

diff -r 0c8191e60c80 -r 6f70c8b3ea9a lisp/language/japanese.el
--- a/lisp/language/japanese.el	Tue Feb 16 03:36:28 1999 +0000
+++ b/lisp/language/japanese.el	Tue Feb 16 07:32:43 1999 +0000
@@ -47,7 +47,9 @@
  nil
  '((safe-charsets ascii japanese-jisx0208 japanese-jisx0208-1978
 		  latin-jisx0201 katakana-jisx0201)
-   (mime-charset . shift_jis)))
+   (mime-charset . shift_jis)
+   (charset-origin-alist (japanese-jisx0208 "SJIS" encode-sjis-char)
+			 (katakana-jisx0201 "SJIS" encode-sjis-char))))
 
 (define-coding-system-alias 'shift_jis 'japanese-shift-jis)
 (define-coding-system-alias 'sjis 'japanese-shift-jis)