-;;; english.el --- English support
+;;; english.el --- support for English -*- no-byte-compile: t -*-
-;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
-;; Licensed to the Free Software Foundation.
+;; Copyright (C) 1997 Free Software Foundation, Inc.
+;; Copyright (C) 1997
+;; National Institute of Advanced Industrial Science and Technology (AIST)
+;; Registration Number H14PRO021
+;; Copyright (C) 2003
+;; National Institute of Advanced Industrial Science and Technology (AIST)
+;; Registration Number H13PRO009
;; Keywords: multibyte character, character set, syntax, category
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Commentary:
;; English as a language environment is one of the ways to reset
;; various multilingual environment to the original settting.
-;;; Code
-
-(defun setup-english-environment ()
- "Reset multilingual environment of Emacs to the default status.
-See the function `reset-language-environment' for more detail."
- (interactive)
- (reset-language-environment))
+;;; Code:
(set-language-info-alist
"English" '((tutorial . "TUTORIAL")
Nothing special is needed to handle English.")
))
+;; Mostly because we can now...
+(define-coding-system 'ebcdic-us
+ "US version of EBCDIC"
+ :coding-type 'charset
+ :charset-list '(ebcdic-us)
+ :mnemonic ?*)
+
+(define-coding-system 'ebcdic-uk
+ "UK version of EBCDIC"
+ :coding-type 'charset
+ :charset-list '(ebcdic-uk)
+ :mnemonic ?*)
+
+(define-coding-system 'ibm1047
+ "A version of EBCDIC used in OS/390 Unix" ; says Groff
+ :coding-type 'charset
+ :charset-list '(ibm1047)
+ :mnemonic ?*)
+(define-coding-system-alias 'cp1047 'ibm1047)
+
;; Make "ASCII" an alias of "English" language environment.
(set-language-info-alist
"ASCII" (cdr (assoc "English" language-info-alist)))
+;;; arch-tag: e440bdb0-91b0-4fb4-ae38-425780f8f745
;;; english.el ends here