From: Eshel Yaron <me@eshelyaron.com>
Date: Mon, 12 Aug 2024 15:24:08 +0000 (+0200)
Subject: (xref-backend-apropos) <(head project-dir)>: Normalize dir name.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bc96d266dcc9065b48370a6b441650cfa1e712e9;p=emacs.git

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

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 7c58bc4a6ba..b567b8afc2d 100644
--- 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