;;; -*-Emacs-Lisp-*- ;; EMH-CFG: installation setting about EMH. ;;; Code: (defvar default-load-path load-path) (add-to-list 'load-path (expand-file-name "../../site-lisp/apel" data-directory)) (add-to-list 'load-path (expand-file-name "." data-directory)) (if (boundp 'LISPDIR) (progn (add-to-list 'default-load-path LISPDIR) (add-to-list 'load-path LISPDIR) (add-to-list 'load-path (expand-file-name "apel" LISPDIR)) )) (defvar VERSION_SPECIFIC_LISPDIR nil) (if VERSION_SPECIFIC_LISPDIR (add-to-list 'load-path VERSION_SPECIFIC_LISPDIR)) (condition-case nil (require 'install) (error (error "Please install APEL 8.2 or later."))) (add-latest-path "custom") (add-path "flim") (add-path "semi") (add-to-list 'load-path (expand-file-name ".")) ;;; @ Please specify prefix of install directory. ;;; ;; Please specify install path prefix. ;; If it is omitted, shared directory (maybe /usr/local is used). (defvar PREFIX install-prefix) ;;(setq PREFIX "~/") (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))) ;; Please specify prefix for ``emh'' [optional] (setq EMH_PREFIX (if PACKAGEDIR "emh" "semi")) ;;; @ optional settings ;;; ;; 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 EMH_DIR (expand-file-name EMH_PREFIX LISPDIR)) ;;; EMH-CFG ends here