From 84bb98ff87c9bdb41ef9e60130621ffe2ae6cfd7 Mon Sep 17 00:00:00 2001 From: Trey Peacock Date: Wed, 23 Feb 2022 20:53:02 -0700 Subject: [PATCH] prevent cross project inferior shell when 1 process exists --- lisp/ess-inf.el | 4 ++++ 1 file changed, 4 insertions(+) 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