(eval-and-compile): Moved from poe.el.

[elisp/apel.git] / APEL-MK

diff --git a/APEL-MK b/APEL-MK
index f81dc42..09ea4c2 100644 (file)
--- a/APEL-MK
+++ b/APEL-MK
@@ -5,7 +5,7 @@
 ;;; Code:
 
 (defun config-apel ()
-  (let (prefix lisp-dir)
+  (let (prefix lisp-dir version-specific-lisp-dir)
     (and (setq prefix (car command-line-args-left))
         (or (string-equal "NONE" prefix)
             (defvar PREFIX prefix)
@@ -16,6 +16,14 @@
             (defvar LISPDIR lisp-dir)
             ))
     (setq command-line-args-left (cdr command-line-args-left))
+    (and (setq version-specific-lisp-dir (car command-line-args-left))
+        (or (string-equal "NONE" version-specific-lisp-dir)
+            (progn
+              (defvar VERSION_SPECIFIC_LISPDIR version-specific-lisp-dir)
+              (princ (format "VERSION_SPECIFIC_LISPDIR=%s\n"
+                             VERSION_SPECIFIC_LISPDIR)))
+            ))
+    (setq command-line-args-left (cdr command-line-args-left))
     (load-file "APEL-CFG")
     (or (boundp 'apel-modules)
        (load-file "APEL-ELS")
@@ -74,4 +82,21 @@
     (byte-compile-file (expand-file-name "custom-load.el" dir))
     ))
 
+(defun what-where-apel ()
+  (config-apel)
+  (load "EMU-ELS")
+  (princ (format "
+The files that belong to the EMU modules:
+  %s
+  -> %s
+
+The files that belong to the APEL modules:
+  %s
+  -> %s
+"
+                (mapconcat 'symbol-name emu-modules ", ")
+                EMU_DIR
+                (mapconcat 'symbol-name apel-modules ", ")
+                APEL_DIR)))
+
 ;;; APEL-MK ends here