aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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