Mercurial > emacs

comparison lisp/language/english.el @ 22981:dfc5c82b7526

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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