From 419efb3d265a3154b356300e1dc5e354dd953784 Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov Date: Mon, 25 Jan 2021 09:17:27 +0200 Subject: Guard against missing directory in projectile-discover-projects-in-directory --- projectile.el | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/projectile.el b/projectile.el index 4265d88..7ec6e60 100644 --- a/projectile.el +++ b/projectile.el @@ -1023,14 +1023,16 @@ This function is not recursive and only adds projects with roots at the top level of DIRECTORY." (interactive (list (read-directory-name "Starting directory: "))) - (let ((subdirs (directory-files directory t))) - (mapcar - (lambda (dir) - (when (and (file-directory-p dir) - (not (member (file-name-nondirectory dir) '(".." ".")))) - (when (projectile-project-p dir) - (projectile-add-known-project dir)))) - subdirs))) + (if (file-exists-p directory) + (let ((subdirs (directory-files directory t))) + (mapcar + (lambda (dir) + (when (and (file-directory-p dir) + (not (member (file-name-nondirectory dir) '(".." ".")))) + (when (projectile-project-p dir) + (projectile-add-known-project dir)))) + subdirs)) + (message "Project search path directory %s doesn't exist" directory))) ;;;###autoload (defun projectile-discover-projects-in-search-path () -- cgit v1.0