(when (file-directory-p file)
;; Add one level of children.
(dolist (child (company-files-directory-files file ""))
(when (file-directory-p file)
;; Add one level of children.
(dolist (child (company-files-directory-files file ""))
(setq company-files-completion-cache (cons dir (nreverse candidates))))
(cdr company-files-completion-cache)))
;;;###autoload
(defun company-files (command &optional arg &rest ignored)
(setq company-files-completion-cache (cons dir (nreverse candidates))))
(cdr company-files-completion-cache)))
;;;###autoload
(defun company-files (command &optional arg &rest ignored)