(mixi-recommended-friend-list-page): New macro.

[elisp/mixi.git] / COMPILE.in

diff --git a/COMPILE.in b/COMPILE.in
index 27179a8..5c1610a 100644 (file)
--- a/COMPILE.in
+++ b/COMPILE.in
@@ -7,7 +7,8 @@
   (let ((load-path (cons nil load-path))
        error-modules)
     (while modules
-      (let ((source (expand-file-name (symbol-name (car modules)))))
+      (let ((source (expand-file-name
+                    (symbol-name (car modules)))))
        (if (file-newer-than-file-p source (concat source "c"))
            (condition-case error
                (byte-compile-file source)
@@ -25,6 +26,13 @@
   WARNING: the last build, and then reconfigure.
   WARNING: ---------------------------------------------------------\n\n")))))
 
+(defun mixi-compile-module ()
+  (let ((load-path (cons nil load-path)))
+    (let ((source (expand-file-name
+                  (car command-line-args-left))))
+      (if (file-newer-than-file-p source (concat source "c"))
+         (byte-compile-file source)))))
+
 (defun mixi-install-modules (modules dest just-print)
   (unless (or just-print (file-exists-p dest))
     (make-directory dest t))
@@ -51,6 +59,9 @@
     (if flag
        (string-match "^\\(\\(--[^ ]+ \\)+-\\|[^ =-]\\)*n" flag))))
 
+(defun mixi-examine ()
+  (princ (mapconcat #'symbol-name mixi-modules " ")))
+
 (defun mixi-compile ()
   (mixi-compile-modules mixi-modules))