[bongo-devel] Header line flashing away

[Daniel Jensen]

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.