From aba7314b193d45a0ac0b6e44a8c2d860178a7c5e Mon Sep 17 00:00:00 2001
From: Michael Olson <mwolson@gnu.org>
Date: Thu, 18 Sep 2008 22:32:07 -0700
Subject: emms-player-mpd: Allow periodic song-change timer to be suppressed.

* lisp/emms-player-mpd.el (emms-player-mpd-check-interval): Allow this to
  be nil.
  (emms-player-mpd-play): If nil, do just one check, so that we can
  record the current play/paused state.
  (emms-player-mpd-connect-1): If nil, don't install the timer.
---
 lisp/emms-player-mpd.el | 27 +++++++++++++++++----------
 1 file changed, 17 insertions(+), 10 deletions(-)

(limited to 'lisp')

diff --git a/lisp/emms-player-mpd.el b/lisp/emms-player-mpd.el
index 7efe13f..24a647c 100644
--- a/lisp/emms-player-mpd.el
+++ b/lisp/emms-player-mpd.el
@@ -197,10 +197,14 @@ It should take same arguments as `open-network-stream' does."
 
 (defcustom emms-player-mpd-check-interval 1
   "How often to check to see whether MusicPD has advanced to the
-next song.  This may be an integer or a floating point number.
-
-This is used only if `emms-player-mpd-sync-playlist' is non-nil"
-  :type 'number
+next song.  This may be an integer, a floating point number, or
+nil.  If set to nil, this check will not be periodically
+performed.
+
+This variable is used only if `emms-player-mpd-sync-playlist' is
+non-nil."
+  :type '(choice (const :tag "Disable check" nil)
+                 number)
   :group 'emms-player-mpd)
 
 (defcustom emms-player-mpd-verbose nil
@@ -848,9 +852,11 @@ playlist."
          nil
          (lambda (closure response)
            (setq emms-player-mpd-current-song nil)
-           (setq emms-player-mpd-status-timer
-                 (run-at-time t emms-player-mpd-check-interval
-                              'emms-player-mpd-detect-song-change)))))
+           (if emms-player-mpd-check-interval
+               (setq emms-player-mpd-status-timer
+                     (run-at-time t emms-player-mpd-check-interval
+                                  'emms-player-mpd-detect-song-change))
+             (emms-player-mpd-detect-song-change)))))
     ;; we only want to play one track, so don't start the timer
     (emms-player-mpd-send
      "play"
@@ -913,9 +919,10 @@ This is called if `emms-player-mpd-sync-playlist' is non-nil."
       (setq emms-player-paused-p t))
     (unless (string= state "stop")
       (emms-player-mpd-detect-song-change info)
-      (setq emms-player-mpd-status-timer
-            (run-at-time t emms-player-mpd-check-interval
-                         'emms-player-mpd-detect-song-change)))))
+      (when emms-player-mpd-check-interval
+        (setq emms-player-mpd-status-timer
+              (run-at-time t emms-player-mpd-check-interval
+                           'emms-player-mpd-detect-song-change))))))
 
 ;;;###autoload
 (defun emms-player-mpd-connect ()
-- 
cgit v1.2.3