X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=APEL-CFG;h=fa1c828562e9d60fda5fe277dcd5d69316d8679b;hb=1c4e4451960ea9a48d32b36f1f3a8e84593d03cc;hp=4d7414c80a5d8bb57998980d25f36c1d9179e1ab;hpb=203445837626b645ebb10a2e2cb7bde84847f8e7;p=elisp%2Fapel.git diff --git a/APEL-CFG b/APEL-CFG index 4d7414c..fa1c828 100644 --- a/APEL-CFG +++ b/APEL-CFG @@ -1,17 +1,11 @@ ;;; -*-Emacs-Lisp-*- -;;; -;;; $Id: APEL-CFG,v 0.0 1997-03-14 07:21:45 morioka Exp $ -;;; -(setq load-path (append - (mapcar (function - (lambda (path) - (expand-file-name path (getenv "PWD")) - )) - '("." "../emu") - ) - load-path)) +;; APEL-CFG: installation setting about APEL. +;;; Code: + +(defvar default-load-path load-path) +(setq load-path (cons (expand-file-name ".") load-path)) (require 'install) @@ -23,6 +17,14 @@ (defvar PREFIX install-prefix) ;;(setq PREFIX "~/") +;; Please specify emu prefix [optional] +(setq EMU_PREFIX + (if (or (featurep 'xemacs) + (and (fboundp 'set-buffer-multibyte) + (subrp (symbol-function 'set-buffer-multibyte)))) + "emu" + "")) + ;; Please specify prefix for ``apel'' [optional] (setq APEL_PREFIX "apel") @@ -31,6 +33,11 @@ ;;; @ optional settings ;;; +(defvar VERSION_SPECIFIC_LISPDIR + (install-detect-elisp-directory PREFIX nil 'version-specific)) + +(setq EMU_DIR (expand-file-name EMU_PREFIX VERSION_SPECIFIC_LISPDIR)) + ;; It is generated by automatically. Please set variable `PREFIX'. ;; If you don't like default directory tree, please set it. (defvar LISPDIR (install-detect-elisp-directory PREFIX)) @@ -38,4 +45,18 @@ (setq APEL_DIR (expand-file-name APEL_PREFIX LISPDIR)) +(defvar PACKAGEDIR + (if (boundp 'early-packages) + (let ((dirs (append (if early-package-load-path + early-packages) + (if late-package-load-path + late-packages) + (if last-package-load-path + last-packages))) + dir) + (while (not (file-exists-p + (setq dir (car dirs)))) + (setq dirs (cdr dirs))) + dir))) + ;;; APEL-CFG ends here