shell-command-mode: New major mode for async-shell-command

* etc/NEWS: Mention the additions.

* lisp/shell.el (shell-command-mode): New major mode (bug#71049).

* lisp/simple.el (async-shell-command-mode):
New variable, with default value pointing to that mode.
(shell-command): Refer to it here.
(async-shell-command): Update docstring.

* lisp/net/tramp.el (tramp-handle-shell-command):
Use the new variable when available.

1 files changed, 7 insertions, 2 deletions

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index b2442f4538c..3dffe7544ab 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -5259,8 +5259,13 @@ support symbolic links."
               ;; Display output.
               (with-current-buffer output-buffer
                 (setq mode-line-process '(":%s"))
-                (unless (eq major-mode 'shell-mode)
-                  (shell-mode))
+                (cond
+                 ((boundp 'async-shell-command-mode)
+                  ;; Emacs 30+
+                  (unless (eq major-mode async-shell-command-mode)
+                    (funcall async-shell-command-mode)))
+                 ((not (eq major-mode 'shell-mode))
+                  (shell-mode)))
                 (set-process-filter p #'comint-output-filter)
                 (set-process-sentinel p #'shell-command-sentinel)
                 (when error-file