Don't use the Lisp implementation of "kill" in remote Eshell directories

* lisp/eshell/esh-proc.el (eshell/kill): When in a remote directory,
fall back to the external "kill" program (bug#72013).

(cherry picked from commit 342998511add79c594a170dc04ecda2f2db0fd36)

diff --git a/lisp/eshell/esh-proc.el b/lisp/eshell/esh-proc.el
index a5e9de7990705ba7fb7fa2fc4fe11bba4d3856aa..f982e2101f5b6bfef9e1203b7f4eba5d2d7bbc9c 100644 (file)
--- a/lisp/eshell/esh-proc.el
+++ b/lisp/eshell/esh-proc.el
@@ -206,6 +206,11 @@ This is like `process-live-p', but additionally checks whether
 Usage: kill [-<signal>] <pid>|<process> ...
 Accepts PIDs and process objects.  Optionally accept signals
 and signal names."
+  ;; The implementation below only supports local PIDs.  For remote
+  ;; connections, fall back to the external "kill" command.
+  (when (file-remote-p default-directory)
+    (declare-function eshell-external-command "esh-ext" (command args))
+    (throw 'eshell-external (eshell-external-command "kill" args)))
   ;; If the first argument starts with a dash, treat it as the signal
   ;; specifier.
   (let ((signum 'SIGINT))