diff options
| author | Mike Kazantsev <mk.fraggod@gmail.com> | 2018-06-06 19:11:19 +0500 |
|---|---|---|
| committer | fraggod@malediction <mk.fraggod@gmail.com> | 2018-06-06 19:11:19 +0500 |
| commit | 3b608a5499f1151111029ba8a9cbcec4fcae46ef (patch) | |
| tree | 9f91eca9604099b2f1bb28a274d05060a0fb5efb | |
| parent | a23ee71cd1340f34bb57ab713d86dbf5d19aeaae (diff) | |
* lisp/emms-player-mpv.el: use shell-quote-argument instead of ad-hoc escaping in emms-player-mpv-ipc-connect-fifo
| -rw-r--r-- | lisp/emms-player-mpv.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/emms-player-mpv.el b/lisp/emms-player-mpv.el index 3a49ba7..3cbdd26 100644 --- a/lisp/emms-player-mpv.el +++ b/lisp/emms-player-mpv.el @@ -465,8 +465,7 @@ Sets `emms-player-mpv-ipc-proc' value to resulting process on success." writing to a named pipe (fifo) file/node or signal error." (setq emms-player-mpv-ipc-proc (start-process-shell-command "emms-player-mpv-input-file" nil - (format "cat > '%s'" - (replace-regexp-in-string "'" "'\"'\"'" emms-player-mpv-ipc-socket t t)))) + (format "cat > \"%s\"" (shell-quote-argument emms-player-mpv-ipc-socket)))) (set-process-query-on-exit-flag emms-player-mpv-ipc-proc nil) (unless emms-player-mpv-ipc-proc (error (format "Failed to start cat-pipe to fifo: %s" emms-player-mpv-ipc-socket))) |