(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)
(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."