tm 7.52.1.

[elisp/apel.git] / emu.el

diff --git a/emu.el b/emu.el
index a4fba79..1142e7b 100644 (file)
--- a/emu.el
+++ b/emu.el
@@ -7,7 +7,7 @@
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; modified by Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
 ;;; Version:
-;;;    $Id: emu.el,v 7.5 1996/04/14 00:11:18 morioka Exp $
+;;;    $Id: emu.el,v 7.7 1996/04/17 15:18:54 morioka Exp $
 ;;; Keywords: emulation, compatibility, NEmacs, Mule, XEmacs
 ;;;
 ;;; This file is part of tl (Tiny Library).
@@ -28,20 +28,22 @@
 ;;;
 ;;; Code:
 
-(defvar running-xemacs (string-match "XEmacs" emacs-version))
-
-(cond ((boundp 'MULE)  (require 'emu-mule))
-      ((boundp 'NEMACS)(require 'emu-nemacs))
-      (t               (require 'emu-orig))
-      )
+(or (boundp 'emacs-major-version)
+    (defconst emacs-major-version (string-to-int emacs-version)))
 
 (defvar running-emacs-18 (<= emacs-major-version 18))
+(defvar running-xemacs (string-match "XEmacs" emacs-version))
 (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))
       (>= emacs-major-version 20)))
 
+(cond ((boundp 'MULE)  (require 'emu-mule))
+      ((boundp 'NEMACS)(require 'emu-nemacs))
+      (t               (require 'emu-orig))
+      )
+
 
 ;;; @ Emacs 19.29 emulation
 ;;;