master 3c4619e: project--buffer-list: Avoid Tramp buffers when possible

[Dmitry Gutov]

branch: master
commit 3c4619edeb0994c4a62cbb149029dfda0811fb57
Author: Philip K <philipk@posteo.net>
Commit: Dmitry Gutov <dgutov@yandex.ru>

    project--buffer-list: Avoid Tramp buffers when possible
    
    * project.el (project--buffer-list): Add file-remote-p check.
---
 lisp/progmodes/project.el | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index d47d9d7..3382713 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)))