From 9e27f9f7f6e0230e7a370b6e857fd4146e4c129b Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Mon, 27 May 2024 22:22:30 +0200 Subject: [PATCH] Fix C-u C-x p g --- lisp/progmodes/project.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index 6d467e5f610..a81744bd1b3 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -977,10 +977,11 @@ The following commands are available: (cl-defmethod xref-backend-context ((_backend (head project-dir)) _id _kind)) (cl-defmethod xref-backend-restore ((_backend (head project-dir)) _context)) (cl-defmethod xref-backend-apropos ((backend (head project-dir)) pattern) - (project--find-regexp-in-files - pattern - (let ((project-files-relative-names t)) - (project--files-in-directory (nth 1 backend) nil (nth 2 backend))))) + (let* ((dir (nth 1 backend)) + (project-files-relative-names t) + (default-directory dir)) + (project--find-regexp-in-files + pattern (project--files-in-directory dir nil (nth 2 backend))))) (cl-defmethod xref-backend-context ((_backend (head project-ext)) _id _kind)) (cl-defmethod xref-backend-restore ((_backend (head project-ext)) _context)) -- 2.39.5