aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorMike Kazantsev <mk.fraggod@gmail.com>2018-06-06 19:11:19 +0500
committerfraggod@malediction <mk.fraggod@gmail.com>2018-06-06 19:11:19 +0500
commit3b608a5499f1151111029ba8a9cbcec4fcae46ef (patch)
tree9f91eca9604099b2f1bb28a274d05060a0fb5efb /lisp
parenta23ee71cd1340f34bb57ab713d86dbf5d19aeaae (diff)
* lisp/emms-player-mpv.el: use shell-quote-argument instead of ad-hoc escaping in emms-player-mpv-ipc-connect-fifo
Diffstat (limited to 'lisp')
-rw-r--r--lisp/emms-player-mpv.el3
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)))