prevent cross project inferior shell when 1 process exists

Author: tpeacock19

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