Mercurial > emacs
comparison lisp/language/english.el @ 17301:0b94fe381355
Initial revision
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Sat, 05 Apr 1997 02:44:02 +0000 |
parents | |
children | d93b9414ff2b |
comparison
equal
deleted
inserted
replaced
17300:01d528c5dd18 | 17301:0b94fe381355 |
---|---|
1 ;;; english.el --- English support | |
2 | |
3 ;; Copyright (C) 1997 Free Software Foundation, Inc. | |
4 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. | |
5 | |
6 ;; Keywords: multibyte character, character set, syntax, category | |
7 | |
8 ;; This file is part of GNU Emacs. | |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
12 ;; the Free Software Foundation; either version 2, or (at your option) | |
13 ;; any later version. | |
14 | |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
23 ;; Boston, MA 02111-1307, USA. | |
24 | |
25 ;;; Commentary: | |
26 | |
27 ;; We need nothing special to support English on Emacs. Selecting | |
28 ;; English as a language environment is one of the ways to reset | |
29 ;; various multilingual environment to the original settting. | |
30 | |
31 ;;; Code | |
32 | |
33 (defun setup-english-environment () | |
34 "Reset MULE (multilingual environment) to the default status." | |
35 (interactive) | |
36 (setq-default enable-multibyte-characters t) | |
37 (if (local-variable-p 'enable-multibyte-characters) | |
38 (setq enable-multibyte-characters t)) | |
39 | |
40 (setq coding-category-internal 'internal | |
41 coding-category-iso-7 'iso-2022-7 | |
42 coding-category-iso-8-1 'iso-8859-1 | |
43 coding-category-iso-8-2 'iso-8859-1 | |
44 coding-category-iso-else 'iso-8859-1 | |
45 coding-category-sjis 'sjis | |
46 coding-category-big5 'big5 | |
47 coding-category-binary 'no-conversion) | |
48 | |
49 (set-coding-priority | |
50 '(coding-category-iso-7 | |
51 coding-category-iso-8-2 | |
52 coding-category-iso-8-1 | |
53 coding-category-iso-else | |
54 coding-category-internal | |
55 coding-category-binary | |
56 coding-category-sjis | |
57 coding-category-big5)) | |
58 | |
59 (setq-default buffer-file-coding-system 'iso-8859-1) | |
60 (set-terminal-coding-system 'iso-8859-1) | |
61 (set-keyboard-coding-system 'iso-8859-1) | |
62 ) | |
63 | |
64 (set-language-info-alist | |
65 "English" '((setup-function . setup-english-environment) | |
66 (tutorial . "TUTORIAL") | |
67 (charset . (ascii)) | |
68 (documentation . t) | |
69 (sample-text . "Hello!, Hi!, How are you?"))) | |
70 | |
71 (register-input-method "English" | |
72 '("quail-dvorak" quail-use-package "quail/latin")) | |
73 | |
74 ;;; english.el ends here |