3 ;; FLIM-CFG: installation setting about FLIM.
7 (defvar default-load-path load-path)
9 (add-to-list 'load-path
10 (expand-file-name "../../site-lisp/apel" data-directory))
14 (add-to-list 'default-load-path LISPDIR)
15 (add-to-list 'load-path LISPDIR)
16 (add-to-list 'load-path (expand-file-name "apel" LISPDIR))))
18 (if (boundp 'VERSION_SPECIFIC_LISPDIR)
19 (add-to-list 'load-path VERSION_SPECIFIC_LISPDIR))
23 (add-latest-path "custom")
25 (add-path default-directory)
27 ;; (or (fboundp 'write-region-as-binary)
28 ;; (error "Please install latest APEL 7.3 or later."))
29 ;; (or (fboundp 'insert-file-contents-as-binary)
30 ;; (error "Please install latest APEL 7.3 or later."))
33 ;;; @ Please specify prefix of install directory.
36 ;; Please specify install path prefix.
37 ;; If it is omitted, shared directory (maybe /usr/local is used).
38 (defvar PREFIX install-prefix)
41 ;; Please specify prefix for ``FLIM'' [optional]
42 (setq FLIM_PREFIX "flim")
46 ;;; @ optional settings
49 ;; It is generated by automatically. Please set variable `PREFIX'.
50 ;; If you don't like default directory tree, please set it.
51 (defvar LISPDIR (install-detect-elisp-directory PREFIX))
52 ;; (setq install-default-elisp-directory "~/lib/emacs/lisp")
54 (defvar VERSION_SPECIFIC_LISPDIR
55 (install-detect-elisp-directory PREFIX nil 'version-specific))
57 ;; (setq FLIM_DIR (expand-file-name FLIM_PREFIX VERSION_SPECIFIC_LISPDIR))
58 (setq FLIM_DIR (expand-file-name FLIM_PREFIX LISPDIR))
60 (setq FLIM_VERSION_SPECIFIC_DIR
61 (expand-file-name FLIM_PREFIX VERSION_SPECIFIC_LISPDIR))
65 (cond ((boundp 'early-package-hierarchies)
66 (append (if early-package-load-path
67 early-package-hierarchies)
68 (if late-package-load-path
69 late-package-hierarchies)
70 (if last-package-load-path
71 last-package-hierarchies)))
72 ((boundp 'early-packages)
73 (append (if early-package-load-path
75 (if late-package-load-path
77 (if last-package-load-path
79 (if (and (boundp 'configure-package-path)
80 (listp configure-package-path))
81 (delete "" configure-package-path))))
83 (while (and (setq dir (car dirs))
84 (not (file-exists-p dir)))
85 (setq dirs (cdr dirs)))
88 ;;; FLIM-CFG ends here