(insert-file-contents-as-binary): Return value.

[elisp/apel.git] / APEL-CFG

diff --git a/APEL-CFG b/APEL-CFG
index 4d7414c..1cd53f1 100644 (file)
--- 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,12 @@
 (defvar PREFIX install-prefix)
 ;;(setq PREFIX "~/")
 
+;; Please specify emu prefix [optional]
+(setq EMU_PREFIX
+      (if (string-match "XEmacs" emacs-version)
+         "emu"
+       ""))
+
 ;; Please specify prefix for ``apel'' [optional]
 (setq APEL_PREFIX "apel")
 
@@ -31,6 +31,11 @@
 ;;; @ optional settings
 ;;;
 
+(setq EMU_DIR
+      (expand-file-name
+       EMU_PREFIX
+       (install-detect-elisp-directory PREFIX nil 'version-specific)))
+
 ;; 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))