X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=emu.el;h=1142e7b68a479c0be6d602bf6adde988bc9bdb89;hb=39fc081ad164df64424432a3e643f92af4924216;hp=a4fba7972eb93d68d20db8c2ac55f359718cc716;hpb=6645b198f05a0847e411f1e7a8bcad88232b3189;p=elisp%2Fapel.git

diff --git a/emu.el b/emu.el
index a4fba79..1142e7b 100644
--- 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
 ;;;