;;; -*-Emacs-Lisp-*- ;; MU-CFG: installation setting about mu-cite. ;;; Code: (defvar default-load-path load-path) (condition-case nil (require 'poe);; Attempt to pickup the function `add-to-list'. (error (if (fboundp 'add-to-list) nil ;; This function is limited to only manage the value of ;; `load-path'. It will be overridden by the proper one later. (defun add-to-list (list-var element) (let ((paths (mapcar 'intern (delq nil (symbol-value list-var)))) (elem (if (string-match "/$" element) (substring element 0 (1- (length element))) element))) (or (memq (intern elem) paths) (memq (intern (concat elem "/")) paths) (set list-var (cons element (symbol-value list-var)))))) (put 'add-to-list 'defun-maybe t)))) ;;; @ Please correct the directories where APEL or FLIM modules are ;;; installed. (add-to-list 'load-path (expand-file-name "../../site-lisp/apel" data-directory)) (add-to-list 'load-path (expand-file-name "../../site-lisp/flim" 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 "emu" LISPDIR)) (add-to-list 'load-path (expand-file-name "apel" LISPDIR)) (add-to-list 'load-path (expand-file-name "flim" LISPDIR)) )) (if (boundp 'VERSION_SPECIFIC_LISPDIR) (add-to-list 'load-path VERSION_SPECIFIC_LISPDIR)) (require 'install) (add-latest-path "custom") (add-path default-directory) ;;; @ 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 "~/") ;; Please specify prefix for ``mu'' [optional] (setq MU_PREFIX "mu") ;;; @ 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") (defvar VERSION_SPECIFIC_LISPDIR (install-detect-elisp-directory PREFIX nil 'version-specific)) (setq MU_DIR (expand-file-name MU_PREFIX LISPDIR)) (defvar PACKAGEDIR (install-get-default-package-directory)) ;;; MU-CFG ends here