[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bongo-devel] Header line flashing away
From: |
Daniel Jensen |
Subject: |
[bongo-devel] Header line flashing away |
Date: |
Tue, 20 Mar 2007 16:35:10 +0100 |
User-agent: |
Gnus/5.110006 (No Gnus v0.6) Emacs/22.0.93 (gnu/linux) |
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] Header line flashing away,
Daniel Jensen <=