From 411ed0c8f8e12d106a64a56ae437ba45c1bcd1f2 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sat, 20 Nov 2021 00:02:11 +0100 Subject: [PATCH] fix(default): search commands not respecting default-directory Commands that delegate to `+default/search-project-for-symbol-at-point` to search a directory (like +default/org-notes-search) would not scope searches to default-directory. --- modules/config/default/autoload/search.el | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/modules/config/default/autoload/search.el b/modules/config/default/autoload/search.el index 8049f667b..cf3fbe966 100644 --- a/modules/config/default/autoload/search.el +++ b/modules/config/default/autoload/search.el @@ -101,18 +101,17 @@ If prefix ARG is set, prompt for a known project to search from." (list (rxt-quote-pcre (or (doom-thing-at-point-or-region) "")) current-prefix-arg)) (let* ((projectile-project-root nil) - (default-directory - (if arg - (if-let (projects (projectile-relevant-known-projects)) - (completing-read "Search project: " projects nil t) - (user-error "There are no known projects")) - default-directory))) + (dir (if arg + (if-let (projects (projectile-relevant-known-projects)) + (completing-read "Search project: " projects nil t) + (user-error "There are no known projects")) + default-directory))) (cond ((featurep! :completion ivy) - (+ivy/project-search nil symbol)) + (+ivy/project-search nil symbol dir)) ((featurep! :completion helm) - (+helm/project-search nil symbol)) + (+helm/project-search nil symbol dir)) ((featurep! :completion vertico) - (+vertico/project-search nil symbol)) + (+vertico/project-search nil symbol dir)) ((rgrep (regexp-quote symbol)))))) ;;;###autoload