From 8b45502da8281826fa2da02a317546bc99f51069 Mon Sep 17 00:00:00 2001 From: Philip K Date: Mon, 3 May 2021 11:35:41 +0200 Subject: [PATCH] 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 d47d9d77e6..33827136a1 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -1120,11 +1120,14 @@ project-kill-buffer-conditions (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))) -- 2.30.2