branch: externals/consult
commit 35b57c1996b0887d4940960f1cd7deb7a5f4a2d9
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@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)
