[bongo-patches] Make random playback choose random _lines_ instead of random buffer positions

[Daniel Brockman]

2007-03-17  Anthony Chaumas-Pellet  <address@hidden>

        Make random playback choose random _lines_ instead of random
        buffer positions.

diff -rN -u old-bongo/bongo.el new-bongo/bongo.el
--- old-bongo/bongo.el  2007-03-17 21:31:43.000000000 +0100
+++ new-bongo/bongo.el  2007-03-17 21:31:43.000000000 +0100
@@ -2236,9 +2236,9 @@
   "Return the position of a random line satisfying PREDICATE.
 If there are no lines that satisfy PREDICATE, loop forever."
   (save-excursion
-    (while (progn (goto-char (+ (point-min)
-                                (random (- (point-max)
-                                           (point-min)))))
+    (while (progn (goto-line (+ (point-min)
+                                (random (count-lines (point-max)
+                                                     (point-min)))))
                   (not (funcall predicate))))
     (point)))
 

-- 
Daniel Brockman <address@hidden>