bug#71049: async-shell-command ends with "Process *Async Shell Command* finished" when remote "direct-async-process"

[Michael Albinus]

Dmitry Gutov <dmitry@gutov.dev> writes:

> On 29/05/2024 20:42, Michael Albinus wrote:
>> I made also the proposal to suppress reading
>> the remote history file for shell-command by default (performance!)
>
> How is that going to look, code-wise?

Not tested yet:

diff --git a/lisp/tramp.el b/lisp/tramp.el
index b2442f45..ba852cf6 100644
--- a/lisp/tramp.el
+++ b/lisp/tramp.el
@@ -5260,7 +5260,17 @@ support symbolic links."
              (with-current-buffer output-buffer
                (setq mode-line-process '(":%s"))
                (unless (eq major-mode 'shell-mode)
-                 (shell-mode))
+                 ;; We set `tramp-histfile-override' to t in order to
+                 ;; suppress reading the remote history file by
+                 ;; default.  Could be overridden by the user with a
+                 ;; connection-local setting.
+                 (let ((tramp-histfile-override t))
+                   ;; `with-connection-local-application-variables'
+                   ;; exists since Emacs 29.  Older Emacsen will use
+                   ;; default application `tramp'.
+                   (tramp-compat-with-connection-local-application-variables
+                       'shell-command
+                     (shell-mode))))
                (set-process-filter p #'comint-output-filter)
                (set-process-sentinel p #'shell-command-sentinel)
                (when error-file