(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))
+ (project-files pr)
(let ((dir (read-directory-name "Base directory: "
nil default-directory t)))
(project--files-in-directory dir
(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)
+ (project-files pr (cons
+ (project-root pr)
(project-external-roots pr)))))
(xref--show-xrefs
(apply-partially #'project--find-regexp-in-files regexp files)