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

diff --git a/emu-mule.el b/emu-mule.el
index 3892370..02528b3 100644
--- 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))