3 ;; MU-CFG: installation setting about mu-cite.
7 (defvar default-load-path load-path)
10 (require 'poe);; Attempt to pickup the function `add-to-list'.
12 (if (fboundp 'add-to-list)
14 ;; This function is limited to only manage the value of
15 ;; `load-path'. It will be overridden by the proper one later.
16 (defun add-to-list (list-var element)
17 (let ((paths (mapcar 'intern (delq nil (symbol-value list-var))))
18 (elem (if (string-match "/$" element)
19 (substring element 0 (1- (length element)))
21 (or (memq (intern elem) paths)
22 (memq (intern (concat elem "/")) paths)
23 (set list-var (cons element (symbol-value list-var))))))
24 (put 'add-to-list 'defun-maybe t))))
26 ;;; @ Please correct the directories where APEL or FLIM modules are
29 (add-to-list 'load-path
30 (expand-file-name "../../site-lisp/apel" data-directory))
32 (add-to-list 'load-path
33 (expand-file-name "../../site-lisp/flim" data-directory))
39 (add-to-list 'default-load-path LISPDIR)
40 (add-to-list 'load-path LISPDIR)
41 (add-to-list 'load-path (expand-file-name "apel" LISPDIR))
42 (add-to-list 'load-path (expand-file-name "flim" LISPDIR))
45 (if (boundp 'VERSION_SPECIFIC_LISPDIR)
46 (add-to-list 'load-path VERSION_SPECIFIC_LISPDIR))
50 (add-latest-path "custom")
52 (add-path default-directory)
55 ;;; @ Please specify prefix of install directory.
58 ;; Please specify install path prefix.
59 ;; If it is omitted, shared directory (maybe /usr/local is used).
60 (defvar PREFIX install-prefix)
63 ;; Please specify prefix for ``mu'' [optional]
68 ;;; @ optional settings
71 ;; It is generated by automatically. Please set variable `PREFIX'.
72 ;; If you don't like default directory tree, please set it.
73 (defvar LISPDIR (install-detect-elisp-directory PREFIX))
74 ;; (setq install-default-elisp-directory "~/lib/emacs/lisp")
76 (defvar VERSION_SPECIFIC_LISPDIR
77 (install-detect-elisp-directory PREFIX nil 'version-specific))
79 (setq MU_DIR (expand-file-name MU_PREFIX LISPDIR))
82 (if (boundp 'early-packages)
83 (let ((dirs (append (if early-package-load-path
85 (if late-package-load-path
87 (if last-package-load-path
90 (while (not (file-exists-p
91 (setq dir (car dirs))))
92 (setq dirs (cdr dirs)))