tm 7.73.

[elisp/apel.git] / emu.el

diff --git a/emu.el b/emu.el
index 8d5cebd..83b205d 100644 (file)
--- a/emu.el
+++ b/emu.el
@@ -7,7 +7,7 @@
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; modified by KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
 ;;; Version:
-;;;    $Id: emu.el,v 7.19 1996/07/11 14:11:12 morioka Exp $
+;;;    $Id: emu.el,v 7.20 1996/07/23 14:58:47 morioka Exp $
 ;;; Keywords: emulation, compatibility, NEmacs, Mule, XEmacs
 ;;;
 ;;; This file is part of tl (Tiny Library).
@@ -33,7 +33,10 @@
 (or (boundp 'emacs-minor-version)
     (defconst emacs-minor-version
       (string-to-int
-       (substring emacs-version (string-match "18\\." emacs-version)))))
+       (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))