X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=APEL-CFG;h=cce20e77afdf7c26e41c46f00b1c98a46e509ce7;hb=ec0d25ef46815b6c327609fd92ac37e753fe1c97;hp=dca4e0529a96c6cac227f7234454467e5fbbb24f;hpb=e427b2ccb234c87f3fd1d8a0cb66ac8118b95b22;p=elisp%2Fapel.git

diff --git a/APEL-CFG b/APEL-CFG
index dca4e05..cce20e7 100644
--- a/APEL-CFG
+++ b/APEL-CFG
@@ -1,13 +1,13 @@
 ;;; -*-Emacs-Lisp-*-
-;;;
-;;; $Id: APEL-CFG,v 0.3 1997-11-04 08:50:36 morioka Exp $
-;;;
+
+;; APEL-CFG: installation setting about APEL.
+
+;;; Code:
 
 (defvar default-load-path load-path)
 (setq load-path (cons (expand-file-name ".") load-path))
 (require 'install)
 
-
 ;;; @ Please specify prefix of install directory.
 ;;;
 
@@ -18,7 +18,9 @@
 
 ;; Please specify emu prefix [optional]
 (setq EMU_PREFIX
-      (if (string-match "XEmacs" emacs-version)
+      (if (or (featurep 'xemacs)
+	      (and (fboundp 'set-buffer-multibyte)
+		   (subrp (symbol-function 'set-buffer-multibyte))))
 	  "emu"
 	""))
 
@@ -30,10 +32,10 @@
 ;;; @ optional settings
 ;;;
 
-(setq EMU_DIR
-      (expand-file-name
-       EMU_PREFIX
-       (install-detect-elisp-directory PREFIX nil 'version-specific)))
+(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.
@@ -41,5 +43,20 @@
 ;; (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