[nongnu] elpa/projectile 4ffbcb4: [Fix #1731] Only discover NEW projects in search path

[ELPA Syncer]

branch: elpa/projectile
commit 4ffbcb473d412da53afaf53433f3cfaac77d15cf
Author: Juergen Hoetzel <juergen@hoetzel.info>
Commit: Bozhidar Batsov <bozhidar@batsov.dev>

    [Fix #1731] Only discover NEW projects in search path
---
 CHANGELOG.md  | 1 +
 projectile.el | 4 +++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index d7a89e8..d824850 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -10,6 +10,7 @@
 
 ### Bugs fixed
 
+* [#1713](https://github.com/bbatsov/projectile/issues/1731): Fix 
`projectile-discover-projects-in-directory` reordering known projects.
 * [#1514](https://github.com/bbatsov/projectile/issues/1514): Fix 
`projectile-ag` global ignores not in effect.
 * [#1714](https://github.com/bbatsov/projectile/issues/1714): Fix 
`projectile-discover-projects-in-directory` not interactive.
 
diff --git a/projectile.el b/projectile.el
index 4c1407a..afa4ab7 100644
--- a/projectile.el
+++ b/projectile.el
@@ -1059,7 +1059,9 @@ discover projects there."
                        (not (member (file-name-nondirectory dir) '(".." "."))))
               (projectile-discover-projects-in-directory dir (1- depth))))
         (when (projectile-project-p directory)
-          (projectile-add-known-project (projectile-project-root directory))))
+          (let ((dir (abbreviate-file-name (projectile-project-root 
directory))))
+            (unless (member dir projectile-known-projects)
+              (projectile-add-known-project dir)))))
     (message "Project search path directory %s doesn't exist" directory)))
 
 ;;;###autoload