X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Finitz.git;a=blobdiff_plain;f=lisp%2Finitz.el;h=156d4615558dca02f929aae3c47996daba9fe76d;hp=2145c6b4ee8962b4da0a64de52f593661f1f7b8f;hb=a8ddc63eccb2720a00da68432270766f67cd0041;hpb=b970e43f8917c3e541e5a89f49fdbf80fbd66777

diff --git a/lisp/initz.el b/lisp/initz.el
index 2145c6b..156d461 100644
--- 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."