aboutsummaryrefslogtreecommitdiff
path: root/lisp/emms-player-mpd.el
diff options
context:
space:
mode:
authorYoni Rabkin <yoni@rabkins.net>2017-10-20 16:49:00 -0400
committerYoni Rabkin <yoni@rabkins.net>2017-10-20 16:49:00 -0400
commit88fecd0234da595843ce6be4d3f9f2b755ff612d (patch)
treea577f6b8e5f4a6c297d69a285bec74076e6634ee /lisp/emms-player-mpd.el
parent175e5af5250503c12a395f5559923d2b9367aae3 (diff)
* lisp/emms-player-mpd.el: allow socket
Allow mpd to read directly from a named socket.
Diffstat (limited to 'lisp/emms-player-mpd.el')
-rw-r--r--lisp/emms-player-mpd.el12
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/emms-player-mpd.el b/lisp/emms-player-mpd.el
index 191d072..83b480c 100644
--- a/lisp/emms-player-mpd.el
+++ b/lisp/emms-player-mpd.el
@@ -309,10 +309,14 @@ return at the end of a request.")
(processp emms-player-mpd-process)
(memq (process-status emms-player-mpd-process) '(run open)))
(setq emms-player-mpd-process
- (funcall emms-player-mpd-connect-function "mpd"
- nil
- emms-player-mpd-server-name
- emms-player-mpd-server-port))
+ (if emms-player-mpd-server-port
+ (funcall emms-player-mpd-connect-function "mpd"
+ nil
+ emms-player-mpd-server-name
+ emms-player-mpd-server-port)
+ (make-network-process :name "emms-mpd"
+ :service emms-player-mpd-server-name
+ :family 'local)))
(set-process-sentinel emms-player-mpd-process
'emms-player-mpd-sentinel)
(setq emms-player-mpd-queue