prevent cross project inferior shell when 1 process exists

Author: tpeacock19

lisp/ess-inf.el

@@ -858,6 +858,11 @@ to `ess-completing-read'."
             (if (or auto-started?
                     (and (not ask-if-1)
                          (= 1 num-processes)
+                         (equal  (plist-get (ess-r-project-info) :name)
+                                 (plist-get (with-current-buffer
+                                                (get-buffer (car proc-buffers))
+                                              ess-r-project--info-cache)
+                                            :name))
                          (message "Using process `%s'" (car proc-buffers))))
                 (car pname-list)
               (unless (and ess-current-process-name

lisp/ess-r-mode.el

@@ -2457,6 +2457,8 @@ state.")
   (add-hook 'completion-at-point-functions 'ess-filename-completion nil 'local)
   (add-hook 'xref-backend-functions #'ess-r-xref-backend nil 'local)
   (add-hook 'project-find-functions #'ess-r-project -90 'local)
+  ;; project
+  (ess-r-project-info)
   ;; eldoc
   (ess--setup-eldoc #'ess-r-eldoc-function)
   ;; auto-complete

lisp/ess-sesman.el

@@ -74,11 +74,14 @@ Session will be named after the LANG inferior repl."
   "With ARG, do not offer to save the workspace.
 Additionally, remove sesman object."
   (let ((cmd (format "base::q('%s')\n" (if arg "no" "default")))
-        (sprocess (ess-get-process ess-current-process-name)))
+        (sprocess (ess-get-process ess-current-process-name))
+        (buf (process-buffer sprocess)))
     (when (not sprocess) (error "No ESS process running"))
-    (sesman-remove-object 'ESS nil (current-buffer) arg t)
+    (sesman-remove-object 'ESS nil buf arg t)
     (ess-cleanup)
-    (ess-send-string sprocess cmd)))
+    (with-current-buffer buf
+      (setq-local ess-r-project--info-cache nil))
+    (ess-send-string sprocess cmd t)))
 
 (cl-defgeneric ess-quit--override (arg &context (ess-dialect "julia"))
   "Stop the inferior process.
@@ -122,8 +125,8 @@ Additionally, remove sesman object."
 
 
 ;; ensure sesman set for script buffers
-(add-hook 'ess-r-mode-hook #'ess--sesman-ensure-process-name)
-(add-hook 'ess-julia-mode-hook #'ess--sesman-ensure-process-name)
+(add-hook 'ess-r-mode-hook #'ess--sesman-ensure-process-name 95)
+(add-hook 'ess-julia-mode-hook #'ess--sesman-ensure-process-name 95)
 
 ;; ensure sesman set for repl buffers
 (advice-add #'inferior-ess--set-major-mode :after #'ess--sesman-init-repl)