tm 7.80.

[elisp/tm.git] / TM-CFG

diff --git a/TM-CFG b/TM-CFG
index 56143ac..31ead77 100644 (file)
--- a/TM-CFG
+++ b/TM-CFG
@@ -1,31 +1,33 @@
 ;;; -*-Emacs-Lisp-*-
 ;;;
-;;; $Id: TM-CFG,v 3.0 1996/03/27 19:38:12 morioka Exp morioka $
+;;; $Id: TM-CFG,v 7.2 1996/08/16 03:55:42 morioka Exp morioka $
 ;;;
 
+(defvar default-load-path load-path)
 (setq load-path (append
                 (mapcar (function
                          (lambda (path)
                            (expand-file-name path (getenv "PWD"))
                            ))
-                        '("." "../tl/" "../mel/" "mh-e/")
+                        '("." "../tl" "../mel" "mh-e")
                         )
                 load-path))
 
 (require 'tl-misc)
+(require 'install)
 
 
 ;;; @ Please specify optional package directory if you use them.
 ;;;
 
 ;; Please specify VM path.
-(add-path "vm-5.95beta/" 'all-paths)
+(add-path "vm-5.95beta" 'all-paths)
 
 ;; Please specify Mailcrypt path.
-(add-path "mailcrypt-3.4/" 'all-paths)
+(add-path "mailcrypt-3.4" 'all-paths)
 
 ;; Please specify BBDB path.
-(add-path "bbdb-1.50/" 'all-paths)
+(add-path "bbdb-1.50" 'all-paths)
 
 
 ;;; @ shell
@@ -42,24 +44,35 @@
 ;;;
 
 ;; Please specify install path prefix.
-(setq PREFIX "~/")             ; install to you home directory
-;;(setq PREFIX "/usr/local/")  ; install to shared directory
+(setq PREFIX
+      (if (or running-emacs-18 running-xemacs)
+         (expand-file-name "../../.." exec-directory)
+       (expand-file-name "../../../.." data-directory)
+       )) ; install to shared directory (maybe "/usr/local")
+;;(setq PREFIX "~/")   ; install to your home directory
+
+;; Please specify install path prefix for binaries.
+(setq EXEC_PREFIX
+      (if (or running-emacs-18 running-xemacs)
+         (expand-file-name "../../.." exec-directory)
+       (expand-file-name "../../../.." exec-directory)
+       ))
 
 ;; Please specify tm package prefix [optional]
 (setq TM_PACKAGE_PREFIX "")
 
 ;; Please specify tl prefix [optional]
-;;(setq TL_PREFIX "tl/")
+;;(setq TL_PREFIX "tl")
 (setq TL_PREFIX
       (if (string-match "XEmacs" emacs-version)
-         "tl/"
+         "tl"
        ""))
 
 ;; Please specify MEL prefix [optional]
-(setq MEL_PREFIX "mel/")
+(setq MEL_PREFIX "mel")
 
 ;; Please specify tm prefix [optional]
-(setq TM_PREFIX "tm/")
+(setq TM_PREFIX "tm")
 
 ;; lisp files of tm are installed into following directory tree:
 ;;
@@ -90,10 +103,10 @@
 ;;;
 
 ;; Please specify binary path.
-(defvar BIN_DIR (expand-file-name "bin/" PREFIX))
+(defvar BIN_DIR (expand-file-name "bin" EXEC_PREFIX))
 
 ;; Please specify binary path. (for external method scripts)
-(setq METHOD_DIR BIN_DIR)
+(setq METHOD_DIR (expand-file-name "share/tm" PREFIX))
 
 
 \f
@@ -101,36 +114,45 @@
 ;;; @ optional settings
 ;;;
 
-(setq EMACS_PREFIX
-      (cond ((boundp 'NEMACS) "nemacs/")
-           ((boundp 'MULE)   "mule/")
-           ((string-match "XEmacs" emacs-version) "xemacs/")
-           (t "emacs/")
-           ))
-
-(setq DATA_PREFIX
-      (if (or (< emacs-major-version 19)
-             (< emacs-minor-version 29)
-             )
-         "lib/"
-       "share/"))
-
-(setq DATADIR (expand-file-name DATA_PREFIX PREFIX))
-
 (setq LISP_PREFIX
       (if (>= emacs-major-version 19)
-         "site-lisp/"
-       "local.lisp/"))
-
-(setq EMACS_DATADIR (expand-file-name EMACS_PREFIX DATADIR))
-
-(defvar LISPDIR (expand-file-name LISP_PREFIX EMACS_DATADIR))
-
+         "site-lisp"
+       "local.lisp"))
+
+(defvar LISPDIR
+  (or
+   (catch 'tag
+     (let ((rest default-load-path)
+          dir)
+       (while (setq dir (car rest))
+        (if (string-match
+             (concat
+              "^" (expand-file-name (concat ".*/" LISP_PREFIX) PREFIX) "$")
+             dir)
+            (or (string-match (format "%d\\.%d"
+                                      emacs-major-version
+                                      emacs-minor-version) dir)
+                (throw 'tag dir)
+                ))
+        (setq rest (cdr rest))
+        )))
+   (expand-file-name (concat
+                     (if running-emacs-19
+                         "share/"
+                       "lib/")
+                     (cond ((boundp 'NEMACS) "nemacs/")
+                           ((boundp 'MULE)   "mule/")
+                           (running-xemacs
+                            (if (featurep 'mule)
+                                "xmule/"
+                              "xemacs/"))
+                           (t "emacs/"))
+                     LISP_PREFIX) PREFIX)
+   ))
 
 ;; Please specify mime-setup.{el|elc} install path.
 (setq SETUP_FILE_DIR LISPDIR)
 
-
 (setq TM_LISPDIR (expand-file-name TM_PACKAGE_PREFIX LISPDIR))
 
 (setq TL_DIR (expand-file-name TL_PREFIX TM_LISPDIR))
@@ -139,15 +161,17 @@
 (setq TM_MHE_DIR TM_KERNEL_DIR)
 (setq TM_GNUS_DIR TM_KERNEL_DIR)
 
-(setq TM_GNUS_COMPILE_FORMAT "cd gnus; PWD=`pwd` make %s EMACS=%s")
-(setq TM_GNUS_INSTALL_FORMAT "cd gnus; PWD=`pwd` make install-19 EMACS=%s TMDIR19=%s")
+(setq TM_GNUS_INSTALL_FORMAT
+      "cd gnus; PWD=`pwd` make install-19 EMACS=%s TMDIR19=%s")
+(setq TM_GNUS_COMPILE ".gnus-compile")
+(setq MAKE "make")
 
 (setq el-file-mode (+ (* 64 6)(* 8 4) 4))
 
 
-(setq BIN_SRC_DIR "src/")
-(setq BINS '("src/ol2" "src/decode-b"))
-(setq METHOD_SRC_DIR "methods/")
+(setq BIN_SRC_DIR "src")
+(setq BINS '("ol2" "decode-b"))
+(setq METHOD_SRC_DIR "methods")
 (setq METHODS
       '("tm-au" "tm-file" "tm-html" "tm-image" "tm-mpeg" "tm-plain"
        "tmdecode"))