branch: externals/consult
commit 28d60a222784515d2982be4f3aa287a789c84244
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
consult-grep, consult-find: Ask for project first when invoked with C-u C-u
Fix #1069
---
CHANGELOG.org | 7 +++++++
consult.el | 2 +-
2 files changed, 8 insertions(+), 1 deletion(-)
diff --git a/CHANGELOG.org b/CHANGELOG.org
index 87055ea578..6e31ad7ac3 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -2,6 +2,13 @@
#+author: Daniel Mendler
#+language: en
+* Development
+
+- ~consult-grep~, ~consult-find~ and similar commands: Ask for project first,
when
+ invoked with double prefix argument ~C-u C-u~.
+- ~consult-grep~, ~consult-find~ and similar commands: Support shadowed paths
when
+ querying for search directory.
+
* Version 1.8 (2024-07-25)
- =consult-preview-excluded-buffers=: New customization variable.
diff --git a/consult.el b/consult.el
index d517e68a15..c17d041f9b 100644
--- a/consult.el
+++ b/consult.el
@@ -800,7 +800,7 @@ asked for the directories or files to search via
(dir
(pcase dir
((pred stringp) dir)
- ('nil (or (consult--project-root) default-directory))
+ ((or 'nil '(16)) (or (consult--project-root dir)
default-directory))
(_
(pcase (if (stringp (car-safe dir))
dir
