X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=APEL-CFG;h=288236c360439bd67c667b16598abfe098cb3d7b;hb=1333892ce114deb5519f92a9341b5957758aee42;hp=1cd53f12a2e2a55ca648554e736fa54f71a3282a;hpb=44f409ab19cc268fe6d0bf6af730d1b1abd0eba5;p=elisp%2Fapel.git diff --git a/APEL-CFG b/APEL-CFG index 1cd53f1..288236c 100644 --- a/APEL-CFG +++ b/APEL-CFG @@ -9,6 +9,13 @@ (require 'install) +;;; +;;; @@ Please specify CUSTOM path. +;;; + +(add-latest-path "custom") + + ;;; @ Please specify prefix of install directory. ;;; @@ -19,7 +26,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" "")) @@ -31,10 +40,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. @@ -42,5 +51,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