Fix project-buffers error on buffers with nil default-directory

* lisp/progmodes/project.el (project-buffers):
Check that default-directory is non-nil (bug#80390).
This commit is contained in:
Yikai Zhao 2026-02-05 12:32:25 +08:00 committed by Dmitry Gutov
parent f4a1c00656
commit cdf360059f

View file

@ -463,9 +463,9 @@ the buffer's value of `default-directory'."
(let ((root (expand-file-name (file-name-as-directory (project-root project))))
bufs)
(dolist (buf (buffer-list))
(when (string-prefix-p root (expand-file-name
(buffer-local-value 'default-directory buf)))
(push buf bufs)))
(let ((dir (buffer-local-value 'default-directory buf)))
(when (and dir (string-prefix-p root (expand-file-name dir)))
(push buf bufs))))
(nreverse bufs)))
(defgroup project-vc nil