aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKenichi Handa1997-05-28 03:40:44 +0000
committerKenichi Handa1997-05-28 03:40:44 +0000
commit044f5c26bce98d33cf4f3b07b6f19ca8beca73d2 (patch)
treeec04a911086d628ca6260e4d063b475534087d9b
parent335a7ad76828cbb6c802eb1f103002f61ec1ec0a (diff)
downloademacs-044f5c26bce98d33cf4f3b07b6f19ca8beca73d2.tar.gz
emacs-044f5c26bce98d33cf4f3b07b6f19ca8beca73d2.zip
(setup-english-environment): Set several
default values more appropriately.
-rw-r--r--lisp/language/english.el28
1 files changed, 14 insertions, 14 deletions
diff --git a/lisp/language/english.el b/lisp/language/english.el
index 76d08f47297..05456640391 100644
--- a/lisp/language/english.el
+++ b/lisp/language/english.el
@@ -36,7 +36,7 @@ The default status is as follows.
36 36
37 The default value of enable-multibyte-characters is t. 37 The default value of enable-multibyte-characters is t.
38 38
39 The default value of buffer-file-coding-system is iso-8859-1. 39 The default value of buffer-file-coding-system is nil.
40 The coding system for terminal output is nil. 40 The coding system for terminal output is nil.
41 The coding system for keyboard input is nil. 41 The coding system for keyboard input is nil.
42 42
@@ -47,7 +47,7 @@ The default status is as follows.
47 coding-category-iso-7 iso-2022-7 47 coding-category-iso-7 iso-2022-7
48 coding-category-iso-8-2 iso-8859-1 48 coding-category-iso-8-2 iso-8859-1
49 coding-category-iso-8-1 iso-8859-1 49 coding-category-iso-8-1 iso-8859-1
50 coding-category-iso-else iso-8859-1 50 coding-category-iso-else iso-2022-lock
51 coding-category-emacs-mule emacs-mule 51 coding-category-emacs-mule emacs-mule
52 coding-category-binary no-conversion 52 coding-category-binary no-conversion
53 coding-category-sjis sjis 53 coding-category-sjis sjis
@@ -55,14 +55,12 @@ The default status is as follows.
55" 55"
56 (interactive) 56 (interactive)
57 (setq-default enable-multibyte-characters t) 57 (setq-default enable-multibyte-characters t)
58 (if (local-variable-p 'enable-multibyte-characters)
59 (setq enable-multibyte-characters t))
60 58
61 (setq coding-category-emacs-mule 'emacs-mule 59 (setq coding-category-iso-7 'iso-2022-7
62 coding-category-iso-7 'iso-2022-7
63 coding-category-iso-8-1 'iso-8859-1 60 coding-category-iso-8-1 'iso-8859-1
64 coding-category-iso-8-2 'iso-8859-1 61 coding-category-iso-8-2 'iso-8859-1
65 coding-category-iso-else 'iso-8859-1 62 coding-category-iso-else 'iso-2022-lock
63 coding-category-emacs-mule 'emacs-mule
66 coding-category-sjis 'sjis 64 coding-category-sjis 'sjis
67 coding-category-big5 'big5 65 coding-category-big5 'big5
68 coding-category-binary 'no-conversion) 66 coding-category-binary 'no-conversion)
@@ -73,16 +71,18 @@ The default status is as follows.
73 coding-category-iso-8-1 71 coding-category-iso-8-1
74 coding-category-iso-else 72 coding-category-iso-else
75 coding-category-emacs-mule 73 coding-category-emacs-mule
76 coding-category-binary
77 coding-category-sjis 74 coding-category-sjis
78 coding-category-big5)) 75 coding-category-big5
76 coding-category-binary))
79 77
80 (setq-default buffer-file-coding-system 'iso-8859-1) 78 (setq-default buffer-file-coding-system nil)
81 (set-terminal-coding-system nil) 79 (set-terminal-coding-system-internal nil)
82 (set-keyboard-coding-system nil) 80 (set-keyboard-coding-system-internal nil)
83 81
84 (setq sendmail-coding-system nil 82 (setq sendmail-coding-system nil
85 rmail-file-coding-system nil) 83 rmail-file-coding-system nil)
84
85 (setq nonascii-insert-offset 0)
86 ) 86 )
87 87
88(set-language-info-alist 88(set-language-info-alist
@@ -90,9 +90,9 @@ The default status is as follows.
90 (tutorial . "TUTORIAL") 90 (tutorial . "TUTORIAL")
91 (charset . (ascii)) 91 (charset . (ascii))
92 (sample-text . "Hello!, Hi!, How are you?") 92 (sample-text . "Hello!, Hi!, How are you?")
93 (documentation . ("\ 93 (documentation . "\
94There's nothing special you should care to handle English in Emacs. 94There's nothing special you should care to handle English in Emacs.
95You can use English both with enable-multibyte-characters t and nil.")) 95You can use English both with enable-multibyte-characters t and nil.")
96 )) 96 ))
97 97
98(register-input-method "English" 98(register-input-method "English"