lisp/language/english.el

   1 ;;; english.el --- support for English -*- no-byte-compile: t -*-
   2
   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
   8 ;; Copyright (C) 2003
   9 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
  10 ;;   Registration Number H13PRO009
  11
  12 ;; Keywords: multibyte character, character set, syntax, category
  13
  14 ;; This file is part of GNU Emacs.
  15
  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)
  19 ;; any later version.
  20
  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.
  25
  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.
  30
  31 ;;; Commentary:
  32
  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.
  36
  37 ;;; Code:
  38
  39 (set-language-info-alist
  40  "English" '((tutorial . "TUTORIAL")
  41              (charset ascii)
  42              (sample-text . "Hello!, Hi!, How are you?")
  43              (documentation . "\
  44 Nothing special is needed to handle English.")
  45              ))
  46
  47 ;; Mostly because we can now...
  48 (define-coding-system 'ebcdic-us
  49   "US version of EBCDIC"
  50   :coding-type 'charset
  51   :charset-list '(ebcdic-us)
  52   :mnemonic ?*)
  53
  54 (define-coding-system 'ebcdic-uk
  55   "UK version of EBCDIC"
  56   :coding-type 'charset
  57   :charset-list '(ebcdic-uk)
  58   :mnemonic ?*)
  59
  60 (define-coding-system 'ibm1047
  61   "A version of EBCDIC used in OS/390 Unix"  ; says Groff
  62   :coding-type 'charset
  63   :charset-list '(ibm1047)
  64   :mnemonic ?*)
  65 (define-coding-system-alias 'cp1047 'ibm1047)
  66
  67 ;; Make "ASCII" an alias of "English" language environment.
  68 (set-language-info-alist
  69  "ASCII" (cdr (assoc "English" language-info-alist)))
  70
  71 ;;; arch-tag: e440bdb0-91b0-4fb4-ae38-425780f8f745
  72 ;;; english.el ends here