From 449810bbe99d6f6ad6f1e0dfa1edc3c8997e5465 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Simen=20Heggest=C3=B8yl?= <simenheg@gmail.com>
Date: Mon, 25 May 2020 21:29:02 +0200
Subject: [PATCH] Avoid adding the empty string to the project list
* lisp/progmodes/project.el (project--read-project-list): Avoid adding
the empty string to the project list.
---
lisp/progmodes/project.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index f00aca83d2d..be0b2e4d5f5 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -735,9 +735,10 @@ loop using the command \\[fileloop-continue]."
(let ((dirs (split-string (string-trim (buffer-string)) "\n"))
(project-list '()))
(dolist (dir dirs)
- (cl-pushnew (file-name-as-directory dir)
- project-list
- :test #'equal))
+ (unless (string-empty-p dir)
+ (cl-pushnew (file-name-as-directory dir)
+ project-list
+ :test #'equal)))
(setq project--list (reverse project-list))))))
(defun project--ensure-read-project-list ()
--
2.39.5