simplify openwith-open and use exec to get rid of extra shell process

1 files changed, 3 insertions, 7 deletions

diff --git a/openwith.el b/openwith.el
index 1478939..73efae1 100644
--- a/openwith.el
+++ b/openwith.el
@@ -77,13 +77,9 @@ where the symbol 'file' is replaced by the file to be opened."
   (let ((shell-file-name "/bin/sh"))
     (start-process-shell-command
      "openwith-process" nil
-     (mapconcat 'identity
-                (concatenate 'list
-                             '("nohup")
-                             (list command)
-                             (mapcar 'shell-quote-argument arglist)
-                             '(">/dev/null"))
-                " "))))
+     (concat "exec nohup " command " "
+             (mapconcat 'shell-quote-argument arglist " ")
+             " >/dev/null"))))
 
 (defun openwith-file-handler (operation &rest args)
   "Open file with external program, if an association is configured."