emacs-27 fc37dc2: Fix the previous change

[Dmitry Gutov]

branch: emacs-27
commit fc37dc298f27025823fad2d944e11cc7ee6a058d
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>

    Fix the previous change
    
    * lisp/progmodes/project.el (project-find-regexp):
    Fix the previous change (project-root is not defined in this version).
    (project-or-external-find-regexp): Same.
---
 lisp/progmodes/project.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 2b35ea4..ca0755c 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -441,7 +441,7 @@ requires quoting, e.g. `\\[quoted-insert]<space>'."
   (require 'xref)
   (require 'grep)
   (let* ((pr (project-current t))
-         (default-directory (project-root pr))
+         (default-directory (car (project-roots pr)))
          (files
           (if (not current-prefix-arg)
               (project-files pr (project-roots pr))
@@ -474,7 +474,7 @@ pattern to search for."
   (interactive (list (project--read-regexp)))
   (require 'xref)
   (let* ((pr (project-current t))
-         (default-directory (project-root pr))
+         (default-directory (car (project-roots pr)))
          (files
           (project-files pr (append
                              (project-roots pr)