[elpa] master 5d72b7e: [systemd] Use `process-file' instead of `shell-command'

[Mario Lang]

branch: master
commit 5d72b7e0e18753050de2a8a31ba182325abbbaf7
Author: Mario Lang <address@hidden>
Commit: Mario Lang <address@hidden>

    [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)))