diff --git a/lisp/ess-inf.el b/lisp/ess-inf.el index eb6364d9e..be705ee57 100644 --- a/lisp/ess-inf.el +++ b/lisp/ess-inf.el @@ -858,6 +858,10 @@ to `ess-completing-read'." (if (or auto-started? (and (not ask-if-1) (= 1 num-processes) + (unless (equal (plist-get (ess-r-project-info) :name) + (plist-get (buffer-local-value + 'ess-r-project--info-cache + (get-buffer (car proc-buffers))) :name))) (message "Using process `%s'" (car proc-buffers)))) (car pname-list) (unless (and ess-current-process-name