diff options
| -rw-r--r-- | lisp/progmodes/project.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index d47d9d77e6c..33827136a17 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -1120,11 +1120,14 @@ current project, it will be killed." (defun project--buffer-list (pr) "Return the list of all buffers in project PR." - (let (bufs) + (let ((remote-project-p (file-remote-p (project-root pr))) + bufs) (dolist (buf (buffer-list)) - (when (equal pr - (with-current-buffer buf - (project-current))) + (when (and (let ((remote (file-remote-p (buffer-local-value 'default-directory buf)))) + (if remote-project-p remote (not remote))) + (equal pr + (with-current-buffer buf + (project-current)))) (push buf bufs))) (nreverse bufs))) |