lyrics tweaks

1 files changed, 11 insertions, 12 deletions

diff --git a/emms/jao-emms-random-album.el b/emms/jao-emms-random-album.el
index bda8213..7aced29 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, 2018 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010, 2017, 2018, 2020 Jose Antonio Ortega Ruiz
 
 ;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
 ;; Start date: Sat Jul 04, 2009 13:06
@@ -89,23 +89,22 @@
 
 (defun jao-emms-random-album-next ()
   (interactive)
-  (let ((buffer (emms-browser-get-buffer)))
-    (save-excursion
-      (if buffer (set-buffer buffer) (emms-browser))
-      (ignore-errors (emms-browser-clear-playlist))
-      (emms-browse-by-album)
-      (jao-emms-goto-random-album)
-      (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))))
+  (save-excursion
+    (ignore-errors (emms-browser-clear-playlist))
+    (emms-browse-by-album)
+    (jao-emms-goto-random-album)
+    (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 ()
   (interactive)
   (setq jao-emms-random-lines nil)
   (jao-emms-random-lines-save))
 
+;;;###autoload
 (defun jao-emms-random-album-setup ()
   (setq emms-player-next-function 'jao-emms-next-noerror))