Mercurial > emacs

changeset 17994:28d45a11ac18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(setup-english-environment): Set several default values more appropriately.
author Kenichi Handa <handa@m17n.org>
date Wed, 28 May 1997 03:40:44 +0000
parents 73869115ae0a
children edf6798cb51b
files lisp/language/english.el
diffstat 1 files changed, 14 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/english.el	Wed May 28 03:39:03 1997 +0000
+++ b/lisp/language/english.el	Wed May 28 03:40:44 1997 +0000
@@ -36,7 +36,7 @@
 
   The default value of enable-multibyte-characters is t.
 
-  The default value of buffer-file-coding-system is iso-8859-1.
+  The default value of buffer-file-coding-system is nil.
   The coding system for terminal output is nil.
   The coding system for keyboard input is nil.
 
@@ -47,7 +47,7 @@
 	coding-category-iso-7		iso-2022-7
 	coding-category-iso-8-2		iso-8859-1
 	coding-category-iso-8-1		iso-8859-1
-	coding-category-iso-else	iso-8859-1
+	coding-category-iso-else	iso-2022-lock
 	coding-category-emacs-mule 	emacs-mule
 	coding-category-binary		no-conversion
 	coding-category-sjis		sjis
@@ -55,14 +55,12 @@
 "
   (interactive)
   (setq-default enable-multibyte-characters t)
-  (if (local-variable-p 'enable-multibyte-characters)
-      (setq enable-multibyte-characters t))
 
-  (setq coding-category-emacs-mule	'emacs-mule
-	coding-category-iso-7		'iso-2022-7
+  (setq coding-category-iso-7		'iso-2022-7
 	coding-category-iso-8-1		'iso-8859-1
 	coding-category-iso-8-2		'iso-8859-1
-	coding-category-iso-else	'iso-8859-1
+	coding-category-iso-else	'iso-2022-lock
+	coding-category-emacs-mule	'emacs-mule
 	coding-category-sjis		'sjis
 	coding-category-big5		'big5
 	coding-category-binary		'no-conversion)
@@ -73,16 +71,18 @@
      coding-category-iso-8-1
      coding-category-iso-else
      coding-category-emacs-mule 
-     coding-category-binary
      coding-category-sjis
-     coding-category-big5))
+     coding-category-big5
+     coding-category-binary))
 
-  (setq-default buffer-file-coding-system 'iso-8859-1)
-  (set-terminal-coding-system nil)
-  (set-keyboard-coding-system nil)
+  (setq-default buffer-file-coding-system nil)
+  (set-terminal-coding-system-internal nil)
+  (set-keyboard-coding-system-internal nil)
 
   (setq sendmail-coding-system nil
 	rmail-file-coding-system nil)
+
+  (setq nonascii-insert-offset 0)
   )
 
 (set-language-info-alist
@@ -90,9 +90,9 @@
 	     (tutorial . "TUTORIAL")
 	     (charset . (ascii))
 	     (sample-text . "Hello!, Hi!, How are you?")
-	     (documentation . ("\
+	     (documentation . "\
 There's nothing special you should care to handle English in Emacs.
-You can use English both with enable-multibyte-characters t and nil."))
+You can use English both with enable-multibyte-characters t and nil.")
 	     ))
 
 (register-input-method "English"