Fix C-u C-x p g

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 6d467e5f610406c9cfb499957de8560b6c5a34db..a81744bd1b32e8886ea0f853077549f36de65975 100644 (file)
--- 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))