- ;; Add one level of children.
- (dolist (child (company-files-directory-files file ""))
- (push (concat file
- (unless (eq (aref file (1- (length file))) ?/) "/")
- child) candidates))))
+ (push file directories)))
+ (dolist (directory (reverse directories))
+ ;; Add one level of children.
+ (dolist (child (company-files-directory-files directory ""))
+ (push (concat directory
+ (unless (eq (aref directory (1- (length directory))) ?/) "/")
+ child) candidates)))