branch: externals/ess commit a9100c1938df67efc33a2f2d2901cefc9e74f9c1 Author: Lionel Henry <lionel....@gmail.com> Commit: Lionel Henry <lionel....@gmail.com>
Inspect `bg-eval-disabled` process property --- lisp/ess-inf.el | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) diff --git a/lisp/ess-inf.el b/lisp/ess-inf.el index c7deaf512a..dfdb8cd1e4 100644 --- a/lisp/ess-inf.el +++ b/lisp/ess-inf.el @@ -2181,8 +2181,19 @@ If in the output field, goes to the beginning of previous input." (inferior-ess--get-old-input:regexp) (inferior-ess--get-old-input:field))) -(defun ess-can-eval-in-background (&optional _proc) - ess-can-eval-in-background) +(defun ess-can-eval-in-background (&optional proc) + "Can the current process be used for background commands. +Inspects the `ess-can-eval-in-background' variable as well as the +`bg-eval-disabled' property of PROC or of the current process, if +any. This makes it possible to disable background evals for a +specific process, for instance in case it was not initialized +properly." + (when ess-can-eval-in-background + (if-let ((proc (or proc + (when ess-current-process-name + (get-process ess-current-process-name))))) + (not (process-get proc 'bg-eval-disabled)) + t))) ;;;*;;; Hot key commands