aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--emms-browser.el6
1 files changed, 6 insertions, 0 deletions
diff --git a/emms-browser.el b/emms-browser.el
index da6ab47..78bde72 100644
--- a/emms-browser.el
+++ b/emms-browser.el
@@ -1209,8 +1209,14 @@ Return the previous point-max before adding."
(emms-browser-pop-mark)
(recenter '(4)))
+(defvar emms-browser-seed-pending t
+ "Do we need to seed (random)?")
+
(defun emms-browser-goto-random ()
(interactive)
+ (when emms-browser-seed-pending
+ (random t)
+ (setq emms-browser-seed-pending nil))
(goto-line (random (count-lines (point-min) (point-max)))))
(defun emms-browser-view-in-dired (&optional bdata)