diff options
author | Michael Albinus <michael.albinus@gmx.de> | 2023-02-14 18:51:44 +0100 |
---|---|---|
committer | Michael Albinus <michael.albinus@gmx.de> | 2023-02-14 18:51:44 +0100 |
commit | 82133dea0d021eb2e395d9265f0cfe58822f2c57 (patch) | |
tree | aa552684696351a89915fbc59d88796baafc2bf2 /lisp/net/tramp-integration.el | |
parent | 864bf5dda4a0f84041d30165a995f2160d1e92f9 (diff) | |
download | emacs-82133dea0d021eb2e395d9265f0cfe58822f2c57.tar.gz |
Tramp cleanup
* lisp/net/tramp.el:
* lisp/net/tramp-integration.el:
* lisp/net/tramp-sh.el: Use `string-join'.
* test/lisp/net/tramp-tests.el: Use `string-join'.
Diffstat (limited to 'lisp/net/tramp-integration.el')
-rw-r--r-- | lisp/net/tramp-integration.el | 20 |
1 files changed, 7 insertions, 13 deletions
diff --git a/lisp/net/tramp-integration.el b/lisp/net/tramp-integration.el index c7877c9824d..3ef4b55acd3 100644 --- a/lisp/net/tramp-integration.el +++ b/lisp/net/tramp-integration.el @@ -133,7 +133,7 @@ been set up by `rfn-eshadow-setup-minibuffer'." ;; Use `path-separator' as it does eshell. (setq eshell-path-env (if (file-remote-p default-directory) - (mapconcat #'identity (butlast (exec-path)) path-separator) + (string-join (butlast (exec-path)) path-separator) (getenv "PATH")))) (with-eval-after-load 'esh-util @@ -345,8 +345,7 @@ NAME must be equal to `tramp-current-connection'." (defconst tramp-bsd-process-attributes-ps-args `("-acxww" "-o" - ,(mapconcat - #'identity + ,(string-join '("pid" "euid" "user" @@ -355,8 +354,7 @@ NAME must be equal to `tramp-current-connection'." "comm=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ") ",") "-o" - ,(mapconcat - #'identity + ,(string-join '("state" "ppid" "pgid" @@ -419,8 +417,7 @@ See `tramp-process-attributes-ps-format'.") ;; Tested with BusyBox v1.24.1. (defconst tramp-busybox-process-attributes-ps-args `("-o" - ,(mapconcat - #'identity + ,(string-join '("pid" "user" "group" @@ -428,8 +425,7 @@ See `tramp-process-attributes-ps-format'.") ",") "-o" "stat=abcde" "-o" - ,(mapconcat - #'identity + ,(string-join '("ppid" "pgid" "tty" @@ -472,8 +468,7 @@ See `tramp-process-attributes-ps-format'.") (defconst tramp-darwin-process-attributes-ps-args `("-acxww" "-o" - ,(mapconcat - #'identity + ,(string-join '("pid" "uid" "user" @@ -482,8 +477,7 @@ See `tramp-process-attributes-ps-format'.") ",") "-o" "state=abcde" "-o" - ,(mapconcat - #'identity + ,(string-join '("ppid" "pgid" "sess" |