* lisp/initz.el (initz-get-files): Add optional argument `all'.

[elisp/initz.git] / lisp / initz.el

diff --git a/lisp/initz.el b/lisp/initz.el
index 29b136f..156d461 100644 (file)
--- a/lisp/initz.el
+++ b/lisp/initz.el
@@ -165,7 +165,7 @@ If ARG is specified, don't display code name."
                        (concat file "c"))
                      directory)))
 
-(defun initz-get-files (kind dir)
+(defun initz-get-files (kind dir &optional all)
   "Return files of the directory made by KIND and DIR."
   (let ((directory (expand-file-name
                    (initz-get-init-value dir 'dir)
@@ -174,12 +174,18 @@ If ARG is specified, don't display code name."
                 (concat initz-prefix
                         (initz-get-init-value dir 'prefix))))
        (ext (if (eq kind 'startup) "\\.el$" "\\.elc$")))
-    (unless (and (not (eq dir 'misc))
-                (string= prefix initz-prefix))
-      (directory-files
-       directory t (concat "^\\(" prefix "\\|"
-                          prefix initz-separator-string
-                          initz-module-regexp "\\)" ext)))))
+    ;; List all files.
+    (if all
+       (directory-files
+        directory t (concat "^\\(" initz-prefix "\\|"
+                            initz-prefix initz-separator-string
+                            initz-module-regexp "\\)" ext))
+      (unless (and (not (eq dir 'misc))
+                  (string= prefix initz-prefix))
+       (directory-files
+        directory t (concat "^\\(" prefix "\\|"
+                            prefix initz-separator-string
+                            initz-module-regexp "\\)" ext))))))
 
 (defun initz-make-directory (sym)
   "Make SYM's directory."
@@ -316,6 +322,11 @@ If ARG is specified, don't display code name."
 
 (defun initz-done ()
   "Initz done."
+  (when initz-delete-compile-log-buffer
+    (mapc #'(lambda (buffer)
+             (when (string-match "^\\*Compile-Log\\*$" (buffer-name buffer))
+               (kill-buffer buffer)))
+         (buffer-list)))
   (initz-message (format initz-done-message-format
                         (initz-version) initz-flavor)))