Mercurial > emacs
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 |