Another TODO list item:
Prevent the header line from flashing away and back when going
from one track to the next.
The attached solution looks OK to me. Could it cause problems?
diff -Naur bongo-old/bongo.el bongo-new/bongo.el
--- bongo-old/bongo.el 2007-03-19 08:57:32.000000000 +0100
+++ bongo-new/bongo.el 2007-03-20 13:56:13.000000000 +0100
@@ -856,8 +856,9 @@
(setq header-line-format
(remq 'bongo-header-line-string header-line-format)))
(setq bongo-header-line-string
- (when (bongo-playing-p)
- (bongo-format-string bongo-header-line-format)))
+ (cond ((bongo-playing-p)
+ (bongo-format-string bongo-header-line-format))
+ (bongo-next-action "")))
(when (or (equal header-line-format '(""))
(and (equal header-line-format '("" bongo-header-line-string))
(null bongo-header-line-string)))
@@ -4311,8 +4312,9 @@
"Tell PLAYER to stop playback completely.
When this function returns, PLAYER will no longer be usable."
(bongo-player-put player 'explicitly-stopped t)
- (bongo-player-call-with-default
- player 'stop 'bongo-default-player-stop))
+ (let (bongo-next-action)
+ (bongo-player-call-with-default
+ player 'stop 'bongo-default-player-stop)))
(defun bongo-player-interactive-p (player)
"Return non-nil if PLAYER's process is interactive.
_______________________________________________
bongo-devel mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/bongo-devel
