Date UT

[elisp/mu-cite.git] / MU-CFG

diff --git a/MU-CFG b/MU-CFG
index 4944e16..801824e 100644 (file)
--- a/MU-CFG
+++ b/MU-CFG
@@ -6,6 +6,26 @@
 
 (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))
 
@@ -16,6 +36,7 @@
     (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))
       ))
@@ -57,17 +78,6 @@
 (setq MU_DIR (expand-file-name MU_PREFIX 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)))
+  (install-get-default-package-directory))
 
 ;;; MU-CFG ends here