[bongo-patches] Disable the recently-introduced inline playback progress display

[Daniel Brockman]

Disable the recently-introduced inline playback progress display,
because it slowed down interactive seeking too much.

diff -rN -u old-bongo/bongo.el new-bongo/bongo.el
--- old-bongo/bongo.el  2007-04-28 00:59:59.000000000 +0200
+++ new-bongo/bongo.el  2007-04-28 00:59:59.000000000 +0200
@@ -8356,6 +8356,13 @@
   (let ((posn (posn-at-point point window)))
     (and posn (car (posn-col-row posn)))))
 
+(defcustom bongo-display-inline-playback-progress nil
+  "Whether to display playback progress inline in the playlist buffer.
+This is done using the face `bongo-elapsed-track-part'.
+Enabling this may considerably slow down interactive seeking."
+  :type 'boolean
+  :group 'bongo)
+
 (defun bongo-redisplay-line (&optional point)
   "Redisplay the line at POINT, preserving semantic text properties."
   (save-excursion
@@ -8402,7 +8409,8 @@
       (when (bongo-marked-track-line-p)
         (let ((bongo-facify-below-existing-faces t))
           (bongo-facify-current-line 'bongo-marked-track-line)))
-      (when (and (bongo-currently-playing-track-line-p)
+      (when (and bongo-display-inline-playback-progress
+                 (bongo-currently-playing-track-line-p)
                  (bongo-elapsed-time)
                  (bongo-total-time))
         (let ((windows (get-buffer-window-list (current-buffer))))
diff -rN -u old-bongo/NEWS new-bongo/NEWS
--- old-bongo/NEWS      2007-04-28 00:59:59.000000000 +0200
+++ new-bongo/NEWS      2007-04-28 00:59:59.000000000 +0200
@@ -3,6 +3,10 @@
 
 April 28, 2007
 
+ * Inline playback progress is now disabled by default,
+   because it slowed down seeking.  To turn it back on,
+   customize `bongo-display-inline-playback-progress'.
+
  * Left-clicking the arrow buttons in the mode line now
    fast-forwards or rewinds instead of switching tracks ---
    to switch tracks, use the right mouse button (`mouse-3').

-- 
Daniel Brockman <address@hidden>