Don't add the path of "custom" to `load-path'.

[elisp/apel.git] / APEL-CFG

diff --git a/APEL-CFG b/APEL-CFG
index 4d7414c..cce20e7 100644 (file)
--- a/APEL-CFG
+++ b/APEL-CFG
@@ -1,19 +1,12 @@
 ;;; -*-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.
 
-(require 'install)
+;;; Code:
 
+(defvar default-load-path load-path)
+(setq load-path (cons (expand-file-name ".") load-path))
+(require 'install)
 
 ;;; @ Please specify prefix of install directory.
 ;;;
@@ -23,6 +16,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,11 +32,31 @@
 ;;; @ 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))
 ;; (setq install-default-elisp-directory "~/lib/emacs/lisp")
 
 (setq APEL_DIR (expand-file-name APEL_PREFIX LISPDIR))
+;; (setq APEL_DIR (expand-file-name APEL_PREFIX VERSION_SPECIFIC_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