(xref-backend-apropos) <(head project-dir)>: Normalize dir name.

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 7c58bc4a6bab6c52aabda6b9acd90ee07862138f..b567b8afc2d0022dfa8870e44248611b3c741df5 100644 (file)
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -984,7 +984,7 @@ 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)
-  (let* ((dir (nth 1 backend))
+  (let* ((dir (file-name-as-directory (nth 1 backend)))
          (project-files-relative-names t)
          (default-directory dir))
     (project--find-regexp-in-files