From 22284f3dc9f47e26db32901d5528d4ab78aa75f4 Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Sun, 26 Mar 2006 23:00:00 +0000 Subject: emms-player-mpd.el (emms-info-mpd): Prevent an error when we can't connect to a MusicPD instance. This prevents EMMS from causing Emacs to stop reading initialization settings. darcs-hash:20060326230003-1bfb2-0f3bba7ce910dfd287a640fa35288b7027bc6b21.gz --- emms-player-mpd.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'emms-player-mpd.el') diff --git a/emms-player-mpd.el b/emms-player-mpd.el index d0431a0..16e8c8b 100644 --- a/emms-player-mpd.el +++ b/emms-player-mpd.el @@ -646,11 +646,13 @@ info from MusicPD." (emms-track-name track))) (string-match emms-player-mpd-supported-regexp file) (not (string-match "\\`http://" file))) - (setq info (emms-player-mpd-get-alist - (emms-player-mpd-parse-response - (emms-player-mpd-send - (concat "find filename " - (emms-player-mpd-quote-file file))))))))) + (setq info (condition-case nil + (emms-player-mpd-get-alist + (emms-player-mpd-parse-response + (emms-player-mpd-send + (concat "find filename " + (emms-player-mpd-quote-file file))))) + (error nil)))))) (when info (dolist (data info) (let ((name (car data)) -- cgit v1.2.3