Mercurial > emacs

comparison lisp/language/japanese.el @ 19283:43b3f86776e4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make coding system iso-2022-jp instead of declaring it as an alias of iso-2022-7bit.
author Kenichi Handa <handa@m17n.org>
date Sun, 10 Aug 1997 05:53:45 +0000
parents 975351f5fc53
children dba381533ebc
comparison
equal deleted inserted replaced
19282:09a1536debb4 19283:43b3f86776e4
27 ;; For Japanese, character sets JISX0201, JISX0208, JISX0212 are 27 ;; For Japanese, character sets JISX0201, JISX0208, JISX0212 are
28 ;; supported. 28 ;; supported.
29 29
30 ;;; Code: 30 ;;; Code:
31 31
32 (define-coding-system-alias 'iso-2022-jp 'iso-2022-7bit) 32 (make-coding-system
33 (define-coding-system-alias 'junet 'iso-2022-7bit) 33 'iso-2022-jp 2 ?J
34 "ISO 2022 based 7bit encoding for Japanese (MIME:ISO-2022-JP)"
35 '((ascii japanese-jisx0208-1978 japanese-jisx0208
36 latin-jisx0201 japanese-jisx0212 katakana-jisx0201 t) nil nil nil
37 short ascii-eol ascii-cntl seven))
38
39 (define-coding-system-alias 'junet 'iso-2022-jp)
34 40
35 (make-coding-system 41 (make-coding-system
36 'japanese-shift-jis 1 ?S 42 'japanese-shift-jis 1 ?S
37 "Shift-JIS 8-bit encoding for Japanese (MIME:SHIFT_JIS)") 43 "Shift-JIS 8-bit encoding for Japanese (MIME:SHIFT_JIS)")
38 44
40 (define-coding-system-alias 'sjis 'japanese-shift-jis) 46 (define-coding-system-alias 'sjis 'japanese-shift-jis)
41 47
42 (make-coding-system 48 (make-coding-system
43 'japanese-iso-7bit-1978-irv 2 ?j 49 'japanese-iso-7bit-1978-irv 2 ?j
44 "ISO 2022 based 7-bit encoding for Japanese JISX0208-1978 and JISX0201-Roman" 50 "ISO 2022 based 7-bit encoding for Japanese JISX0208-1978 and JISX0201-Roman"
45 '((ascii t) nil nil nil 51 '((ascii japanese-jisx0208-1978 japanese-jisx0208
52 latin-jisx0201 japanese-jisx0212 katakana-jisx0201 t) nil nil nil
46 short ascii-eol ascii-cntl seven nil nil use-roman use-oldjis)) 53 short ascii-eol ascii-cntl seven nil nil use-roman use-oldjis))
47 54
48 (define-coding-system-alias 'iso-2022-jp-1978-irv 'japanese-iso-7bit-1978-irv) 55 (define-coding-system-alias 'iso-2022-jp-1978-irv 'japanese-iso-7bit-1978-irv)
49 (define-coding-system-alias 'old-jis 'japanese-iso-7bit-1978-irv) 56 (define-coding-system-alias 'old-jis 'japanese-iso-7bit-1978-irv)
50 57
51 (make-coding-system 58 (make-coding-system
52 'japanese-iso-8bit 2 ?E 59 'japanese-iso-8bit 2 ?E
53 "ISO 2022 based EUC encoding for Japanese (MIME:EUC-JP)" 60 "ISO 2022 based EUC encoding for Japanese (MIME:EUC-JP)"
54 '(ascii japanese-jisx0208 katakana-jisx0201 japanese-jisx0212 61 '((ascii latin-jisx0201) (japanese-jisx0208 japanese-jisx0208-1978)
55 short ascii-eol ascii-cntl nil nil single-shift)) 62 katakana-jisx0201 japanese-jisx0212
63 short ascii-eol ascii-cntl nil nil single-shift))
56 64
57 (define-coding-system-alias 'euc-japan-1990 'japanese-iso-8bit) 65 (define-coding-system-alias 'euc-japan-1990 'japanese-iso-8bit)
58 (define-coding-system-alias 'euc-japan 'japanese-iso-8bit) 66 (define-coding-system-alias 'euc-japan 'japanese-iso-8bit)
59 (define-coding-system-alias 'euc-jp 'japanese-iso-8bit) 67 (define-coding-system-alias 'euc-jp 'japanese-iso-8bit)
60 68