mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-06-14 12:31:25 +00:00
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:
parent
f4a1c00656
commit
cdf360059f
1 changed files with 3 additions and 3 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in a new issue