From 6df088f98e7c4e7cd3c00919a5534fd315d2cde1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jostein=20Kj=C3=B8nigsen?= Date: Fri, 6 Jan 2023 10:33:51 +0100 Subject: [PATCH] Make project-find-files return files in sorted order. --- lisp/progmodes/project.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index 730998727ce..03119b16ce7 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -1080,11 +1080,11 @@ project-find-file-in (concat dir "/")) vc-directory-exclusion-list)) (all-files - (if include-all - (mapcan - (lambda (dir) (project--files-in-directory dir vc-dirs-ignores)) - dirs) - (project-files project dirs))) + (sort (if include-all + (mapcan + (lambda (dir) (project--files-in-directory dir vc-dirs-ignores)) + dirs) + (project-files project dirs)) #'string<)) (completion-ignore-case read-file-name-completion-ignore-case) (file (funcall project-read-file-name-function "Find file" all-files nil 'file-name-history -- 2.34.1