[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master c07ebfc: Bind default-directory to the project root
From: |
Dmitry Gutov |
Subject: |
master c07ebfc: Bind default-directory to the project root |
Date: |
Wed, 3 Feb 2021 20:41:21 -0500 (EST) |
branch: master
commit c07ebfcbe084e8219d8c2588f23f77ba4ef39087
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>
Bind default-directory to the project root
* lisp/progmodes/project.el (project-find-regexp):
Bind default-directory to the project root, to save this value
in the resulting buffer (esp. if the project selector was used,
(https://lists.gnu.org/archive/html/emacs-devel/2021-02/msg00140.html).
(project-or-external-find-regexp): Same.
---
lisp/progmodes/project.el | 2 ++
1 file changed, 2 insertions(+)
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index fc5e301..abe563b 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -725,6 +725,7 @@ requires quoting, e.g. `\\[quoted-insert]<space>'."
(require 'xref)
(require 'grep)
(let* ((pr (project-current t))
+ (default-directory (project-root pr))
(files
(if (not current-prefix-arg)
(project-files pr)
@@ -756,6 +757,7 @@ pattern to search for."
(interactive (list (project--read-regexp)))
(require 'xref)
(let* ((pr (project-current t))
+ (default-directory (project-root pr))
(files
(project-files pr (cons
(project-root pr)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master c07ebfc: Bind default-directory to the project root,
Dmitry Gutov <=