[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 4798dc0: Fix C-u project-find-regexp's default dir
From: |
Dmitry Gutov |
Subject: |
master 4798dc0: Fix C-u project-find-regexp's default dir |
Date: |
Thu, 1 Apr 2021 18:25:09 -0400 (EDT) |
branch: master
commit 4798dc0c51381f36cd45160640c4f55a7792750b
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>
Fix C-u project-find-regexp's default dir
* lisp/progmodes/project.el (project-find-regexp):
Default read-directory-name to the current default-directory when
called with C-u (bug#47012).
---
lisp/progmodes/project.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 4101962..3dd1111 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -732,13 +732,14 @@ requires quoting, e.g. `\\[quoted-insert]<space>'."
(interactive (list (project--read-regexp)))
(require 'xref)
(require 'grep)
- (let* ((pr (project-current t))
+ (let* ((caller-dir default-directory)
+ (pr (project-current t))
(default-directory (project-root pr))
(files
(if (not current-prefix-arg)
(project-files pr)
(let ((dir (read-directory-name "Base directory: "
- nil default-directory t)))
+ caller-dir nil t)))
(project--files-in-directory dir
nil
(grep-read-files regexp))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 4798dc0: Fix C-u project-find-regexp's default dir,
Dmitry Gutov <=