From 6dd1f2254fe74618b23e440fc36ac365fad11ae4 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sat, 22 Dec 2018 00:04:01 +0000 Subject: emms utils: locate correctly current song --- emms/jao-emms-random-album.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'emms') diff --git a/emms/jao-emms-random-album.el b/emms/jao-emms-random-album.el index b959e36..bda8213 100644 --- a/emms/jao-emms-random-album.el +++ b/emms/jao-emms-random-album.el @@ -1,6 +1,6 @@ ;; jao-emms-random-album.el -- play random albums in emms -;; Copyright (C) 2009, 2010, 2017 Jose Antonio Ortega Ruiz +;; Copyright (C) 2009, 2010, 2017, 2018 Jose Antonio Ortega Ruiz ;; Author: Jose Antonio Ortega Ruiz ;; Start date: Sat Jul 04, 2009 13:06 @@ -95,11 +95,10 @@ (ignore-errors (emms-browser-clear-playlist)) (emms-browse-by-album) (jao-emms-goto-random-album) - (emms-browser-add-tracks-and-play) - (when jao-emms-random-album-notify-p - (jao-notify (substring-no-properties (thing-at-point 'line) 0 -1) - "Next album" - jao-emms-random-album-notify-icon)) + (let ((album (substring-no-properties (thing-at-point 'line) 0 -1))) + (emms-browser-add-tracks-and-play) + (when jao-emms-random-album-notify-p + (jao-notify album "Next album" jao-emms-random-album-notify-icon))) (emms-browser-bury-buffer)))) (defun jao-emms-random-album-reset () -- cgit v1.2.3