From: Eshel Yaron Date: Mon, 27 May 2024 20:22:30 +0000 (+0200) Subject: Fix C-u C-x p g X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9e27f9f7f6e0230e7a370b6e857fd4146e4c129b;p=emacs.git Fix C-u C-x p g --- 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))