aboutsummaryrefslogtreecommitdiff
path: root/emms-streams.el
diff options
context:
space:
mode:
authorMichael Olson <mwolson@gnu.org>2007-01-05 00:09:00 +0000
committerMichael Olson <mwolson@gnu.org>2007-01-05 00:09:00 +0000
commit7805ee70add349cf732370fb6d23af3d5d6f5720 (patch)
tree87175507b8d38013b9cf73d17c81c4f167a87f04 /emms-streams.el
parent36d1fa87cb1cab51e4ccdefb56ac2c88f81a514c (diff)
emms-streams: Try to reconnect to station if briefly disconnected
darcs-hash:20070105000942-1bfb2-f536818d060661e6ace6d41cd9cbfbc6c45c47e7.gz
Diffstat (limited to 'emms-streams.el')
-rw-r--r--emms-streams.el6
1 files changed, 5 insertions, 1 deletions
diff --git a/emms-streams.el b/emms-streams.el
index 0d97006..e464a12 100644
--- a/emms-streams.el
+++ b/emms-streams.el
@@ -200,7 +200,11 @@ needed info.")
This is used when `emms-stream-default-action' is \"play\"."
(save-excursion
(setq emms-stream-playlist-buffer
- (emms-playlist-set-playlist-buffer (emms-playlist-new)))))
+ (emms-playlist-set-playlist-buffer (emms-playlist-new)))
+ (with-current-buffer emms-stream-playlist-buffer
+ ;; make sure that we continue to play the station, even if
+ ;; briefly disconnected
+ (set (make-local-variable 'emms-repeat-playlist) t))))
(defun emms-stream-kill-playlist ()
"Delete the EMMS playlist associated with emms-streams, if one exists."