FIX do not call setwd when opening R in docker container

This commit is contained in:
ndwarshuis 2019-06-13 16:52:02 -04:00
parent 7b6badefee
commit 337f0776ad
1 changed files with 8 additions and 0 deletions

View File

@ -738,9 +738,17 @@ Flycheck syntax checkers
(defun nd/ess-r-start-env (orig-fun &rest args) (defun nd/ess-r-start-env (orig-fun &rest args)
(nd/with-advice (nd/with-advice
((#'inferior-ess--start-process :around #'nd/ess-r-add-env)) ((#'inferior-ess--start-process :around #'nd/ess-r-add-env))
((#'ess-set-working-directory :around #'nd/ess-setwd-here))
(apply orig-fun args)))
(defun nd/ess-r-setwd-maybe (orig-fun &rest args)
(nd/with-advice
((#'ess-set-working-directory :override #'ignore))
(apply orig-fun args))) (apply orig-fun args)))
(advice-add #'run-ess-r :around #'nd/ess-r-start-env) (advice-add #'run-ess-r :around #'nd/ess-r-start-env)
(advice-add #'run-ess-r :around #'nd/ess-r-setwd-maybe)
#+END_SRC #+END_SRC
*** Python *** Python
**** inferior shell **** inferior shell