From 3672c9ee39f0d15815a79e69dc1a52a9cfbb8b44 Mon Sep 17 00:00:00 2001
From: lucas <lucas>
Date: Sun, 25 Jun 2006 11:24:00 +0000
Subject: emms-browser.el: emms-browser-goto-random moves the point to a random
 line in the browser.

darcs-hash:20060625112441-4f952-c9517489eb33dd2865a3d8f6fbdf922b3a989acb.gz
---
 emms-browser.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/emms-browser.el b/emms-browser.el
index f4c5d5a..9cc2a3d 100644
--- a/emms-browser.el
+++ b/emms-browser.el
@@ -163,6 +163,7 @@ Use nil for no sorting."
     (set-keymap-parent map text-mode-map)
     (define-key map (kbd "q") 'emms-browser-bury-buffer)
     (define-key map (kbd "/") 'emms-isearch-buffer)
+    (define-key map (kbd "?") 'emms-browser-goto-random)
     (define-key map (kbd "?") 'describe-mode)
     (define-key map (kbd "C-/") 'emms-playlist-mode-undo)
     (define-key map (kbd "SPC") 'emms-browser-toggle-subitems)
@@ -1122,5 +1123,9 @@ included."
   (interactive)
   (emms-browser-search '(info-artist info-title info-album)))
 
+(defun emms-browser-goto-random ()
+  (interactive)
+  (goto-line (random (count-lines (point-min) (point-max)))))
+
 (provide 'emms-browser)
 ;;; emms-browser.el ends here
-- 
cgit v1.2.3