comparison lisp/language/english.el @ 20744:48d79ef65489

Register coding-priority key in language-info-alist.
author Kenichi Handa <handa@m17n.org>
date Thu, 22 Jan 1998 01:48:25 +0000
parents 9c37afba82bc
children 9c04115476e6
comparison
equal deleted inserted replaced
20743:ffa67db916b4 20744:48d79ef65489
42 42
43 The order of priorities of coding categories and the coding system 43 The order of priorities of coding categories and the coding system
44 bound to each category are as follows 44 bound to each category are as follows
45 coding category coding system 45 coding category coding system
46 -------------------------------------------------- 46 --------------------------------------------------
47 coding-category-iso-7-tight iso-2022-jp
47 coding-category-iso-7 iso-2022-7bit 48 coding-category-iso-7 iso-2022-7bit
48 coding-category-iso-8-1 iso-latin-1 49 coding-category-iso-8-1 iso-latin-1
49 coding-category-iso-8-2 iso-latin-1 50 coding-category-iso-8-2 iso-latin-1
50 coding-category-iso-7-else iso-2022-7bit-lock 51 coding-category-iso-7-else iso-2022-7bit-lock
51 coding-category-iso-8-else iso-2022-8bit-ss2 52 coding-category-iso-8-else iso-2022-8bit-ss2
56 coding-category-binarry no-conversion 57 coding-category-binarry no-conversion
57 " 58 "
58 (interactive) 59 (interactive)
59 (setq-default enable-multibyte-characters t) 60 (setq-default enable-multibyte-characters t)
60 61
61 (setq coding-category-iso-7 'iso-2022-7bit 62 (setq coding-category-iso-7-tight 'iso-2022-jp
63 coding-category-iso-7 'iso-2022-7bit
62 coding-category-iso-8-1 'iso-latin-1 64 coding-category-iso-8-1 'iso-latin-1
63 coding-category-iso-8-2 'iso-latin-1 65 coding-category-iso-8-2 'iso-latin-1
64 coding-category-iso-7-else 'iso-2022-7bit-lock 66 coding-category-iso-7-else 'iso-2022-7bit-lock
65 coding-category-iso-8-else 'iso-2022-8bit-ss2 67 coding-category-iso-8-else 'iso-2022-8bit-ss2
66 coding-category-emacs-mule 'emacs-mule 68 coding-category-emacs-mule 'emacs-mule
68 coding-category-sjis 'japanese-shift-jis 70 coding-category-sjis 'japanese-shift-jis
69 coding-category-big5 'chinese-big5 71 coding-category-big5 'chinese-big5
70 coding-category-binary 'no-conversion) 72 coding-category-binary 'no-conversion)
71 73
72 (set-coding-priority 74 (set-coding-priority
73 '(coding-category-iso-7 75 '(coding-category-iso-7-tight
76 coding-category-iso-7
74 coding-category-iso-8-2 77 coding-category-iso-8-2
75 coding-category-iso-8-1 78 coding-category-iso-8-1
76 coding-category-iso-7-else 79 coding-category-iso-7-else
77 coding-category-iso-8-else 80 coding-category-iso-8-else
78 coding-category-emacs-mule 81 coding-category-emacs-mule
91 (setq nonascii-insert-offset 0)) 94 (setq nonascii-insert-offset 0))
92 95
93 (set-language-info-alist 96 (set-language-info-alist
94 "English" '((setup-function . setup-english-environment) 97 "English" '((setup-function . setup-english-environment)
95 (tutorial . "TUTORIAL") 98 (tutorial . "TUTORIAL")
96 (charset . (ascii)) 99 (charset ascii)
100 (coding-priority iso-2022-7bit
101 iso-latin-1
102 iso-2022-7bit-lock
103 iso-2022-8bit-ss2
104 emacs-mule
105 raw-text
106 japanese-shift-jis
107 chinese-big5
108 no-conversion)
97 (sample-text . "Hello!, Hi!, How are you?") 109 (sample-text . "Hello!, Hi!, How are you?")
98 (documentation . "\ 110 (documentation . "\
99 Nothing special is needed to handle English.") 111 Nothing special is needed to handle English.")
100 )) 112 ))
101 113