bug#41879: 28.0.50; [Patch]: Add project-switch-to-buffer in project.el

[Basil L. Contovounesios]

Theodor Thornhill <theo@thornhill.no> writes:

> diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
> index 218058b195..a61b29abe6 100644
> --- a/lisp/progmodes/project.el
> +++ b/lisp/progmodes/project.el
> @@ -753,6 +753,18 @@ project-compile
>           (default-directory (project-root pr)))
>      (compile command comint)))
>  
> +;;;###autoload
> +(defun project-switch-to-buffer ()
> +  "Switch to a buffer in the current project."
> +  (interactive)
> +  (let ((root (project-root (project-current t))))
> +    (switch-to-buffer
> +     (read-buffer
> +      "Switch-to-buffer: " nil t

Nit: For consistency with switch-to-buffer,
this should be "Switch to buffer: " without the hyphens.

> +      (lambda (buffer)
> +        (when-let ((file (buffer-file-name (cdr buffer))))

Nit: Neither the manual nor read-buffer's docstring documents what
(cdr buffer) is here, so a comment mentioning Vbuffer_alist or something
along those lines would be nice.

> +          (file-in-directory-p file root)))))))
> +

Otherwise LGTM, thanks,

-- 
Basil