From ffd809f2f23746caba888c2ec8a833830631e9e7 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 16 Feb 1999 07:32:43 +0000 Subject: [PATCH] (japanese-shift-jis): Add charset-origin-alist property. --- lisp/language/japanese.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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) -- 2.39.2