From: Dmitry Gutov Date: Fri, 20 Jan 2023 16:43:56 +0000 (+0200) Subject: (project-try-vc): Add string-start and string-end anchors to marker-re X-Git-Tag: emacs-29.0.90~643 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=67ee627c38d5817a091a89e0a356fb8028c70e1a;p=emacs.git (project-try-vc): Add string-start and string-end anchors to marker-re * lisp/progmodes/project.el (project-try-vc): Add string-start and string-end anchors to marker-re (bug#60956). --- diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index dc87cb8e15d..59270070484 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -1,7 +1,7 @@ ;;; project.el --- Operations on the current project -*- lexical-binding: t; -*- ;; Copyright (C) 2015-2023 Free Software Foundation, Inc. -;; Version: 0.9.4 +;; Version: 0.9.5 ;; Package-Requires: ((emacs "26.1") (xref "1.4.0")) ;; This is a GNU ELPA :core package. Avoid using functionality that @@ -514,11 +514,14 @@ project backend implementation of `project-external-roots'.") (lambda (b) (assoc-default b backend-markers-alist)) vc-handled-backends))) (marker-re - (mapconcat - (lambda (m) (format "\\(%s\\)" (wildcard-to-regexp m))) - (append backend-markers - (project--value-in-dir 'project-vc-extra-root-markers dir)) - "\\|")) + (concat + "\\`" + (mapconcat + (lambda (m) (format "\\(%s\\)" (wildcard-to-regexp m))) + (append backend-markers + (project--value-in-dir 'project-vc-extra-root-markers dir)) + "\\|") + "\\'")) (locate-dominating-stop-dir-regexp (or vc-ignore-dir-regexp locate-dominating-stop-dir-regexp)) last-matches