[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-30 4589f51c21d: (project-find-regexp): Fix the temporary value of
From: |
Dmitry Gutov |
Subject: |
emacs-30 4589f51c21d: (project-find-regexp): Fix the temporary value of DEFAULT-DIRECTORY |
Date: |
Tue, 13 Aug 2024 08:14:43 -0400 (EDT) |
branch: emacs-30
commit 4589f51c21df3a07e1c5b46897608c344df73e68
Author: Dmitry Gutov <dmitry@gutov.dev>
Commit: Dmitry Gutov <dmitry@gutov.dev>
(project-find-regexp): Fix the temporary value of DEFAULT-DIRECTORY
* lisp/progmodes/project.el (project-find-regexp): Make sure the
assigned value of DEFAULT-DIRECTORY ends with a slash.
read-directory-name returns the name without it in certain cases.
---
lisp/progmodes/project.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index b7c1698f50b..c38d3f0048a 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -1001,7 +1001,7 @@ requires quoting, e.g. `\\[quoted-insert]<space>'."
(project-files pr)
(let* ((dir (read-directory-name "Base directory: "
caller-dir nil t)))
- (setq default-directory dir)
+ (setq default-directory (file-name-as-directory dir))
(project--files-in-directory dir
nil
(grep-read-files regexp))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-30 4589f51c21d: (project-find-regexp): Fix the temporary value of DEFAULT-DIRECTORY,
Dmitry Gutov <=