emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix prompts for search-{cwd,project} commands

Browse source
This commit is contained in:
Henrik Lissner 2019-07-02 14:06:31 +02:00
parent 9a8faf1df3
commit 65efbc4204
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
modules/config/default/autoload/default.el
View file

@ -226,7 +226,7 @@ If prefix ARG is set, prompt for a directory to search from."
(interactive "P") (interactive "P")
(let ((default-directory (let ((default-directory
(if arg (if arg
(read-directory-name "Switch to project: " default-directory) (read-directory-name "Search directory: ")
default-directory))) default-directory)))
(call-interactively (call-interactively
(cond ((featurep! :completion ivy) #'+ivy/project-search-from-cwd) (cond ((featurep! :completion ivy) #'+ivy/project-search-from-cwd)
@ -240,8 +240,8 @@ If prefix ARG is set, prompt for a known project to search from."
(interactive "P") (interactive "P")
(let ((default-directory (let ((default-directory
(if arg (if arg
(if-let* ((projects (projectile-relevant-known-projects))) (if-let (projects (projectile-relevant-known-projects))
(completing-read "Switch to project: " projects (completing-read "Search project: " projects
nil t nil nil (doom-project-root)) nil t nil nil (doom-project-root))
(user-error "There are no known projects")) (user-error "There are no known projects"))
default-directory))) default-directory)))