branch: master
commit 5d72b7e0e18753050de2a8a31ba182325abbbaf7
Author: Mario Lang <ml...@delysid.org>
Commit: Mario Lang <ml...@delysid.org>
[systemd] Use `process-file' instead of `shell-command'
---
packages/systemd/systemd.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/packages/systemd/systemd.el b/packages/systemd/systemd.el
index a7e377c..ac940b1 100644
--- a/packages/systemd/systemd.el
+++ b/packages/systemd/systemd.el
@@ -74,8 +74,8 @@ on the remote host. When not specified, the remote system
bus is used."
"unix:path=/run/dbus/system_bus_socket")
(`:session
(with-temp-buffer
- (let ((default-directory (concat "/scpx:" host ":/")))
- (shell-command "[ -e $XDG_RUNTIME_DIR/bus ] && echo -n
$XDG_RUNTIME_DIR/bus" t)
+ (let ((default-directory (concat "/scpx:" host ":")))
+ (process-file "/bin/sh" nil t nil "-c" "[ -e
$XDG_RUNTIME_DIR/bus ] && echo -n $XDG_RUNTIME_DIR/bus")
(when (not (zerop (buffer-size)))
(buffer-string)))))
(_ bus)))
