Skip to content
Browse files

* helm-emms.el (helm-c-source-emms-files): Fix, use emms buffer as cu…

…rrent buffer.
  • Loading branch information...
1 parent d4feb1d commit c2624e3f2b89033f248c5c1eaa7f020f2258b8cd @thierryvolpiatto thierryvolpiatto committed Apr 29, 2012
Showing with 9 additions and 9 deletions.
  1. +9 −9 helm-emms.el
View
18 helm-emms.el
@@ -129,9 +129,8 @@
(defun helm-c-emms-play-current-playlist ()
"Play current playlist."
- (with-current-emms-playlist
- (emms-playlist-first)
- (emms-playlist-mode-play-smart)))
+ (emms-playlist-first)
+ (emms-playlist-mode-play-smart))
(defvar helm-c-source-emms-files
'((name . "Emms files")
@@ -159,12 +158,13 @@
(action . (("Play file" . emms-play-file)
("Add to Playlist and play (C-u clear current)"
. (lambda (candidate)
- (when helm-current-prefix-arg
- (emms-playlist-current-clear))
- (emms-playlist-new)
- (mapc 'emms-add-playlist-file (helm-marked-candidates))
- (unless emms-player-playing-p
- (helm-c-emms-play-current-playlist))))))))
+ (with-current-emms-playlist
+ (when helm-current-prefix-arg
+ (emms-playlist-current-clear))
+ (emms-playlist-new)
+ (mapc 'emms-add-playlist-file (helm-marked-candidates))
+ (unless emms-player-playing-p
+ (helm-c-emms-play-current-playlist)))))))))
;;;###autoload
(defun helm-emms ()

0 comments on commit c2624e3

Please sign in to comment.
Something went wrong with that request. Please try again.