--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/mule/english.el	Mon Aug 13 11:28:15 2007 +0200
@@ -0,0 +1,51 @@
+;;; english.el --- English support
+
+;; Copyright (C) 1997,1999 Electrotechnical Laboratory, JAPAN.
+;; Licensed to the Free Software Foundation.
+
+;; Keywords: multibyte character, character set, syntax, category
+
+;; This file is part of XEmacs.
+
+;; XEmacs is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; XEmacs is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with XEmacs; see the file COPYING.  If not, write to the Free
+;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;; 02111-1307, USA.
+
+;;; Commentary:
+
+;; We need nothing special to support English on Emacs.  Selecting
+;; 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))
+
+(set-language-info-alist
+ "English" '((tutorial . "TUTORIAL")
+	     (charset ascii)
+	     (sample-text . "Hello!, Hi!, How are you?")
+	     (documentation . "\
+Nothing special is needed to handle English.")
+	     ))
+
+;; Make "ASCII" an alias of "English" language environment.
+(set-language-info-alist
+ "ASCII" (cdr (assoc "English" language-info-alist)))
+
+;;; english.el ends here