aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorforcer <forcer>2005-09-13 01:37:00 +0000
committerforcer <mwolson@gnu.org>2005-09-13 01:37:00 +0000
commitb4c652a8f64b5d1426c47ea216f37ad6ad1861f1 (patch)
tree248ba205d0b2d06b06752fc31ec101a532a41d01
parentc94c41fd6b9618e4a6422266f9e712753a8c199c (diff)
Throw errors for `emms-next' and `emms-previous' at the end/beginning of the playlist
darcs-hash:20050913013733-2189f-8af35462c962d2f187a6453ffdc6afbf3d538d70.gz
-rw-r--r--emms.el22
1 files changed, 12 insertions, 10 deletions
diff --git a/emms.el b/emms.el
index 67c9aae..f19756e 100644
--- a/emms.el
+++ b/emms.el
@@ -552,11 +552,12 @@ used, and the contents removed."
(point-min)))
(condition-case nil
(progn
- (condition-case nil
- (emms-playlist-next)
- (error
- (when emms-repeat-playlist
- (emms-playlist-first))))
+ (if emms-repeat-playlist
+ (condition-case nil
+ (emms-playlist-next)
+ (error
+ (emms-playlist-first)))
+ (emms-playlist-next))
(emms-playlist-select (point)))
(error
(error "No next track in playlist"))))))
@@ -571,11 +572,12 @@ used, and the contents removed."
(point-max)))
(condition-case nil
(progn
- (condition-case nil
- (emms-playlist-previous)
- (error
- (when emms-repeat-playlist
- (emms-playlist-last))))
+ (if emms-repeat-playlist
+ (condition-case nil
+ (emms-playlist-previous)
+ (error
+ (emms-playlist-last)))
+ (emms-playlist-previous))
(emms-playlist-select (point)))
(error
(error "No previous track in playlist"))))))