;;; -*-Emacs-Lisp-*- ;;; ;;; $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") ) 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) ;; Please specify Mailcrypt path. (add-path "mailcrypt-3.4" 'all-paths) ;; Please specify BBDB path. (add-path "bbdb-1.50" 'all-paths) ;;; @ shell ;;; ;; Please specify shell command path. (setq SHELL "/bin/sh") ;; Please specify shell command option. (setq SHELLOPTION "-c") ;;; @ Please specify prefix of install directory. ;;; ;; Please specify install path prefix. (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 (if (string-match "XEmacs" emacs-version) "tl" "")) ;; Please specify MEL prefix [optional] (setq MEL_PREFIX "mel") ;; Please specify tm prefix [optional] (setq TM_PREFIX "tm") ;; lisp files of tm are installed into following directory tree: ;; ;; LISPDIR = PREFIX/DATA_PREFIX/LISP_PREFIX/ ;; LISPDIR/mime-setup.{el|elc} ;; LISPDIR/TM_PACKAGE_PREFIX/TL_PREFIX/ --- tl lisp files ;; LISPDIR/TM_PACKAGE_PREFIX/MEL_PREFIX/ --- MEL lisp files ;; LISPDIR/TM_PACKAGE_PREFIX/TM_PREFIX/ --- tm lisp files ;; ;; For example, if PREFIX = "/usr/local/" and you use Emacs 19.30, ;; ;; LISPDIR = /usr/local/share/emacs/site-lisp/ ;; /usr/local/share/emacs/site-lisp/mime-setup.{el|elc} ;; /usr/local/share/emacs/site-lisp/ --- tl lisp files ;; /usr/local/share/emacs/site-lisp/mel/ --- MEL lisp files ;; /usr/local/share/emacs/site-lisp/tm/ --- tm lisp files ;; ;; For example, if PREFIX = "~/" and you use XEmacs, ;; ;; LISPDIR = ~/share/xemacs/site-lisp/ ;; ~/share/xemacs/site-lisp/mime-setup.{el|elc} ;; ~/share/xemacs/site-lisp/tl/ --- tl lisp files ;; ~/share/xemacs/site-lisp/mel/ --- MEL lisp files ;; ~/share/xemacs/site-lisp/tm/ --- tm lisp files ;;; @ executables ;;; ;; Please specify binary path. (defvar BIN_DIR (expand-file-name "bin" EXEC_PREFIX)) ;; Please specify binary path. (for external method scripts) (setq METHOD_DIR (expand-file-name "share/tm" PREFIX)) ;;; @ optional settings ;;; (setq LISP_PREFIX (if (>= emacs-major-version 19) "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)) (setq MEL_DIR (expand-file-name MEL_PREFIX TM_LISPDIR)) (setq TM_KERNEL_DIR (expand-file-name TM_PREFIX TM_LISPDIR)) (setq TM_MHE_DIR TM_KERNEL_DIR) (setq TM_GNUS_DIR TM_KERNEL_DIR) (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 '("ol2" "decode-b")) (setq METHOD_SRC_DIR "methods") (setq METHODS '("tm-au" "tm-file" "tm-html" "tm-image" "tm-mpeg" "tm-plain" "tmdecode"))