Mercurial > emacs

comparison lisp/language/japanese.el @ 24327:6f70c8b3ea9a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(japanese-shift-jis): Add charset-origin-alist property.
author Kenichi Handa <handa@m17n.org>
date Tue, 16 Feb 1999 07:32:43 +0000
parents 5c0a4ed13900
children 29c0557957ba
comparison
equal deleted inserted replaced
24326:0c8191e60c80 24327:6f70c8b3ea9a
45 'japanese-shift-jis 1 ?S 45 'japanese-shift-jis 1 ?S
46 "Shift-JIS 8-bit encoding for Japanese (MIME:SHIFT_JIS)" 46 "Shift-JIS 8-bit encoding for Japanese (MIME:SHIFT_JIS)"
47 nil 47 nil
48 '((safe-charsets ascii japanese-jisx0208 japanese-jisx0208-1978 48 '((safe-charsets ascii japanese-jisx0208 japanese-jisx0208-1978
49 latin-jisx0201 katakana-jisx0201) 49 latin-jisx0201 katakana-jisx0201)
50 (mime-charset . shift_jis))) 50 (mime-charset . shift_jis)
51 (charset-origin-alist (japanese-jisx0208 "SJIS" encode-sjis-char)
52 (katakana-jisx0201 "SJIS" encode-sjis-char))))
51 53
52 (define-coding-system-alias 'shift_jis 'japanese-shift-jis) 54 (define-coding-system-alias 'shift_jis 'japanese-shift-jis)
53 (define-coding-system-alias 'sjis 'japanese-shift-jis) 55 (define-coding-system-alias 'sjis 'japanese-shift-jis)
54 56
55 (make-coding-system 57 (make-coding-system