+
+;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
+
+;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Version: $Id: emu.el,v 7.26 1996/09/05 16:31:02 morioka Exp $
+;; Keywords: emulation, compatibility, NEmacs, MULE, XEmacs
+
+;; This file is part of tl (Tiny Library).
+
+;; This program 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.
+
+;; This program 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 this program; see the file COPYING. If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Code:
+
+(or (boundp 'emacs-major-version)
+ (defconst emacs-major-version (string-to-int emacs-version)))
+(or (boundp 'emacs-minor-version)
+ (defconst emacs-minor-version
+ (string-to-int
+ (substring
+ emacs-version
+ (string-match (format "%d\\." emacs-major-version) emacs-version)
+ ))))
+
+(defvar running-emacs-18 (<= emacs-major-version 18))
+(defvar running-xemacs (string-match "XEmacs" emacs-version))
+(defvar running-xemacs-19 (and running-xemacs
+ (= emacs-major-version 19)))
+(defvar running-xemacs-20 (and running-xemacs
+ (= emacs-major-version 20)))
+(defvar running-xemacs-20-or-later (and running-xemacs
+ (>= emacs-major-version 20)))
+(defvar running-xemacs-19_14-or-later
+ (or (and running-xemacs-19 (>= emacs-minor-version 14))
+ running-xemacs-20-or-later))
+(defvar running-emacs-19 (and (not running-xemacs)
+ (= emacs-major-version 19)))
+(defvar running-emacs-19_29-or-later
+ (or (and running-emacs-19 (>= emacs-minor-version 29))
+ (and (not running-xemacs)(>= emacs-major-version 20))))
+
+(cond ((boundp 'MULE)
+ (require 'emu-mule)
+ )
+ ((and running-xemacs-20 (featurep 'mule))
+ (require 'emu-x20)
+ )
+ ((boundp 'NEMACS)
+ (require 'emu-nemacs)
+ )
+ (t
+ (require 'emu-e19)
+ ))
+
+
+;;; @ MIME charset