Mercurial > emacs
comparison lisp/language/english.el @ 22981:dfc5c82b7526
(setup-english-environment): Just call
reset-language-environment.
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
the value to setup-XXX-environment-internal. Add properties
nonascii-translation, input-method, features, unibyte-syntax, and
unibyte-display.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 10 Aug 1998 06:29:02 +0000 |
parents | 9c04115476e6 |
children | 60eb71a9f901 |
comparison
equal
deleted
inserted
replaced
22980:5681e7798ce9 | 22981:dfc5c82b7526 |
---|---|
30 | 30 |
31 ;;; Code | 31 ;;; Code |
32 | 32 |
33 (defun setup-english-environment () | 33 (defun setup-english-environment () |
34 "Reset multilingual environment of Emacs to the default status. | 34 "Reset multilingual environment of Emacs to the default status. |
35 This function is called by all the `setup-function's for | 35 See the function `reset-language-environment' for more detail." |
36 the various supported language environments. | |
37 | |
38 The default status is as follows: | |
39 | |
40 The default value of buffer-file-coding-system is nil. | |
41 The coding system for terminal output is nil. | |
42 The coding system for keyboard input is nil. | |
43 | |
44 The order of priorities of coding categories and the coding system | |
45 bound to each category are as follows | |
46 coding category coding system | |
47 -------------------------------------------------- | |
48 coding-category-iso-7-tight iso-2022-jp | |
49 coding-category-iso-7 iso-2022-7bit | |
50 coding-category-iso-8-1 iso-latin-1 | |
51 coding-category-iso-8-2 iso-latin-1 | |
52 coding-category-iso-7-else iso-2022-7bit-lock | |
53 coding-category-iso-8-else iso-2022-8bit-ss2 | |
54 coding-category-emacs-mule emacs-mule | |
55 coding-category-raw-text raw-text | |
56 coding-category-sjis japanese-shift-jis | |
57 coding-category-big5 chinese-big5 | |
58 coding-category-binarry no-conversion | |
59 " | |
60 (interactive) | 36 (interactive) |
61 ;; This function formerly set default-enable-multibyte-characters to t, | 37 (reset-language-environment)) |
62 ;; but that is incorrect. It should not alter the unibyte/multibyte choice. | |
63 | |
64 (setq coding-category-iso-7-tight 'iso-2022-jp | |
65 coding-category-iso-7 'iso-2022-7bit | |
66 coding-category-iso-8-1 'iso-latin-1 | |
67 coding-category-iso-8-2 'iso-latin-1 | |
68 coding-category-iso-7-else 'iso-2022-7bit-lock | |
69 coding-category-iso-8-else 'iso-2022-8bit-ss2 | |
70 coding-category-emacs-mule 'emacs-mule | |
71 coding-category-raw-text 'raw-text | |
72 coding-category-sjis 'japanese-shift-jis | |
73 coding-category-big5 'chinese-big5 | |
74 coding-category-binary 'no-conversion) | |
75 | |
76 (set-coding-priority | |
77 '(coding-category-iso-7-tight | |
78 coding-category-iso-7 | |
79 coding-category-iso-8-2 | |
80 coding-category-iso-8-1 | |
81 coding-category-iso-7-else | |
82 coding-category-iso-8-else | |
83 coding-category-emacs-mule | |
84 coding-category-raw-text | |
85 coding-category-sjis | |
86 coding-category-big5 | |
87 coding-category-binary)) | |
88 | |
89 (set-default-coding-systems nil) | |
90 ;; Don't alter the terminal and keyboard coding systems here. | |
91 ;; The terminal still supports the same coding system | |
92 ;; that it supported a minute ago. | |
93 ;;; (set-terminal-coding-system-internal nil) | |
94 ;;; (set-keyboard-coding-system-internal nil) | |
95 | |
96 (setq nonascii-insert-offset 0)) | |
97 | 38 |
98 (set-language-info-alist | 39 (set-language-info-alist |
99 "English" '((setup-function . setup-english-environment) | 40 "English" '((tutorial . "TUTORIAL") |
100 (tutorial . "TUTORIAL") | |
101 (charset ascii) | 41 (charset ascii) |
102 (coding-priority iso-2022-7bit | |
103 iso-latin-1 | |
104 iso-2022-7bit-lock | |
105 iso-2022-8bit-ss2 | |
106 emacs-mule | |
107 raw-text | |
108 japanese-shift-jis | |
109 chinese-big5 | |
110 no-conversion) | |
111 (sample-text . "Hello!, Hi!, How are you?") | 42 (sample-text . "Hello!, Hi!, How are you?") |
112 (documentation . "\ | 43 (documentation . "\ |
113 Nothing special is needed to handle English.") | 44 Nothing special is needed to handle English.") |
114 )) | 45 )) |
115 | 46 |