tm 7.69.

[elisp/tm.git] / inst-tm

diff --git a/inst-tm b/inst-tm
index d7e30da..6387e40 100644 (file)
--- a/inst-tm
+++ b/inst-tm
@@ -1,6 +1,6 @@
 ;;; -*-Emacs-Lisp-*-
 ;;;
-;;; $Id: inst-tm,v 7.4 1996/06/07 14:14:53 morioka Exp $
+;;; $Id: inst-tm,v 7.7 1996/06/27 15:49:37 morioka Exp $
 ;;;
 
 (load-file "TM-CFG")
@@ -82,28 +82,29 @@
     (set-buffer (get-buffer-create TM_GNUS_COMPILE))
     (let ((emacs (car command-line-args)))
       (insert (format "cd gnus\n%s gnus EMACS=%s PWD=`pwd`\n" MAKE emacs))
-      (cond ((string-match "XEmacs" emacs-version)
-            (insert (format "%s sgnus EMACS=%s PWD=`pwd`\n" MAKE emacs))
+      (cond (running-xemacs-19_14-or-later
             )
-           (t (cond ((<= emacs-major-version 18)
+           (running-xemacs
+            (insert (format "%s gnus5 EMACS=%s PWD=`pwd`\n" MAKE emacs))
+            )
+           (t (cond (running-emacs-18
                      (insert (format "%s gnus3 EMACS=%s PWD=`pwd`\n"
                                      MAKE emacs))
                      (insert (format "%s gnus4 EMACS=%s PWD=`pwd`\n"
                                      MAKE emacs))
                      )
-                    ((< emacs-minor-version 30)
+                    ((<= emacs-minor-version 29)
                      (insert (format "%s gnus4 EMACS=%s PWD=`pwd`\n"
                                      MAKE emacs))
                      (insert (format "%s gnus5 EMACS=%s PWD=`pwd`\n" 
                                      MAKE emacs))
                      )
                     (t
-                     (insert (format "%s sgnus EMACS=%s PWD=`pwd`\n" 
+                     (insert (format "%s gnus5 EMACS=%s PWD=`pwd`\n" 
                                      MAKE emacs))
                      )))))
     (write-file TM_GNUS_COMPILE)
-    )
-  )
+    ))
 
 (defun install-el-file (src dest file)
   (let ((src-file (expand-file-name file src)))