tm 7.52.1.

[elisp/apel.git] / emu-mule.el

diff --git a/emu-mule.el b/emu-mule.el
index 3892370..02528b3 100644 (file)
--- a/emu-mule.el
+++ b/emu-mule.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;    $Id: emu-mule.el,v 7.0 1996/03/14 16:27:21 morioka Exp $
+;;;    $Id: emu-mule.el,v 7.2 1996/04/17 15:17:24 morioka Exp $
 ;;; Keywords: emulation, compatibility, Mule
 ;;;
 ;;; This file is part of tl (Tiny Library).
@@ -41,10 +41,6 @@ whose return value applied function PRED is not nil.
        ))
    ))
 
-(if (not (boundp 'emacs-major-version))
-    (defconst emacs-major-version (string-to-int emacs-version))
-  )
-
 
 ;;; @ leading-character
 ;;;
@@ -59,7 +55,7 @@ whose return value applied function PRED is not nil.
 ;;; @ version specific features
 ;;;
 
-(cond ((>= emacs-major-version 19)
+(cond (running-emacs-19
        (require 'emu-19)
        (defun fontset-pixel-size (fontset)
         (elt
@@ -72,7 +68,7 @@ whose return value applied function PRED is not nil.
            (cdr (get-fontset-info fontset))
            )) 5))
        )
-      (t
+      (running-emacs-18
        (require 'emu-18)
        (defun tl:make-overlay (beg end &optional buffer type))
        (defun tl:overlay-put (overlay prop value))