diff options
author | Dmitry Gutov <dgutov@yandex.ru> | 2021-02-04 03:38:27 +0200 |
---|---|---|
committer | Dmitry Gutov <dgutov@yandex.ru> | 2021-02-04 22:06:16 +0200 |
commit | b99848c72cb2570cfcab98443be9156b66dee830 (patch) | |
tree | 791e4090e8eaf0c43433a98c175dfc868d9e9b3f | |
parent | 19534f988c0f29199dfd51d627392bccf7426253 (diff) | |
download | emacs-b99848c72cb2570cfcab98443be9156b66dee830.tar.gz |
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.
(cherry picked from commit c07ebfcbe084e8219d8c2588f23f77ba4ef39087)
-rw-r--r-- | lisp/progmodes/project.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index 1caf8bed7d2..2b35ea412f7 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -441,6 +441,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 (project-roots pr)) @@ -473,6 +474,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 (append (project-roots pr) |