From: Kenichi Handa <handa@m17n.org>
Date: Tue, 16 Feb 1999 07:32:43 +0000 (+0000)
Subject: (japanese-shift-jis): Add charset-origin-alist property.
X-Git-Tag: emacs-20.4~622
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ffd809f2f23746caba888c2ec8a833830631e9e7;p=emacs.git

(japanese-shift-jis): Add charset-origin-alist property.
---

diff --git a/lisp/language/japanese.el b/lisp/language/japanese.el
index 1b023e6f75e..220f429ad0a 100644
--- a/lisp/language/japanese.el
+++ b/lisp/language/japanese.el
@@ -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)