From 88fecd0234da595843ce6be4d3f9f2b755ff612d Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Fri, 20 Oct 2017 16:49:00 -0400 Subject: * lisp/emms-player-mpd.el: allow socket Allow mpd to read directly from a named socket. --- lisp/emms-player-mpd.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'lisp') 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 -- cgit v1.2.3