1 ;;; english.el --- support for English -*- no-byte-compile: t -*-
3 ;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007
4 ;; Free Software Foundation, Inc.
5 ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007
6 ;; National Institute of Advanced Industrial Science and Technology (AIST)
7 ;; Registration Number H14PRO021
9 ;; National Institute of Advanced Industrial Science and Technology (AIST)
10 ;; Registration Number H13PRO009
12 ;; Keywords: multibyte character, character set, syntax, category
14 ;; This file is part of GNU Emacs.
16 ;; GNU Emacs is free software; you can redistribute it and/or modify
17 ;; it under the terms of the GNU General Public License as published by
18 ;; the Free Software Foundation; either version 3, or (at your option)
21 ;; GNU Emacs is distributed in the hope that it will be useful,
22 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
23 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
24 ;; GNU General Public License for more details.
26 ;; You should have received a copy of the GNU General Public License
27 ;; along with GNU Emacs; see the file COPYING. If not, write to the
28 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
29 ;; Boston, MA 02110-1301, USA.
33 ;; We need nothing special to support English on Emacs. Selecting
34 ;; English as a language environment is one of the ways to reset
35 ;; various multilingual environment to the original settting.
39 (set-language-info-alist
40 "English" '((tutorial . "TUTORIAL")
42 (sample-text . "Hello!, Hi!, How are you?")
44 Nothing special is needed to handle English.")
47 ;; Mostly because we can now...
48 (define-coding-system 'ebcdic-us
49 "US version of EBCDIC"
51 :charset-list '(ebcdic-us)
54 (define-coding-system 'ebcdic-uk
55 "UK version of EBCDIC"
57 :charset-list '(ebcdic-uk)
60 (define-coding-system 'ibm1047
61 "A version of EBCDIC used in OS/390 Unix" ; says Groff
63 :charset-list '(ibm1047)
65 (define-coding-system-alias 'cp1047 'ibm1047)
67 ;; Make "ASCII" an alias of "English" language environment.
68 (set-language-info-alist
69 "ASCII" (cdr (assoc "English" language-info-alist)))
71 ;;; arch-tag: e440bdb0-91b0-4fb4-ae38-425780f8f745
72 ;;; english.el ends here