[elpa] externals/consult 35b57c1996 1/2: consult-grep/find: Always show current directory in prompt

[ELPA Syncer]

branch: externals/consult
commit 35b57c1996b0887d4940960f1cd7deb7a5f4a2d9
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    consult-grep/find: Always show current directory in prompt
    
    cc @jdtsmith
---
 consult.el | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/consult.el b/consult.el
index 3c2043b27f..edb620c94a 100644
--- a/consult.el
+++ b/consult.el
@@ -930,12 +930,10 @@ Otherwise the `default-directory' is returned."
          ;; Bind default-directory in order to find the project
          (pdir (let ((default-directory edir)) (consult--project-root))))
     (cons
-     (cond
-      ((equal edir pdir)
-       (format "%s (Project %s): " prompt (consult--project-name pdir)))
-      ((equal edir (file-name-as-directory (expand-file-name 
default-directory)))
-       (concat prompt ": "))
-      (t (format "%s (%s): " prompt (consult--abbreviate-directory dir))))
+     (format "%s (%s): " prompt
+             (if (equal edir pdir)
+                 (concat "Project " (consult--project-name pdir))
+               (consult--abbreviate-directory dir)))
      edir)))
 
 (defun consult--default-project-function (may-prompt)