prevent cross project inferior shell when 1 process exists

emacs-ess · Feb 24, 2022 · 84bb98f · 84bb98f
1 parent 12f0319
commit 84bb98f
Showing 1 changed file with 4 additions and 0 deletions.
diff --git 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