diff options
| author | william.xwl <william.xwl> | 2005-10-04 15:46:00 +0000 |
|---|---|---|
| committer | william.xwl <mwolson@gnu.org> | 2005-10-04 15:46:00 +0000 |
| commit | 414b92ad08b4399575f7b0adc6dfa7ee68494322 (patch) | |
| tree | 7c62b2e90095aa4bfcea41a70cc775068669c8ce | |
| parent | 3cd3a11cc7d754f34711144c51392548915928a7 (diff) | |
emms-mode-line: Changed dead `emms-playlist-current-track-changed-hook'
to `emms-track-updated-functions'.
darcs-hash:20051004154656-e8fe6-9872e4246c7635987fa79f7a499134b622e3e453.gz
| -rw-r--r-- | emms-mode-line.el | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/emms-mode-line.el b/emms-mode-line.el index a060274..fd84d57 100644 --- a/emms-mode-line.el +++ b/emms-mode-line.el @@ -53,8 +53,8 @@ (defun emms-mode-line-playlist-current () "Format the currently playing song" - (format emms-mode-line-format - (emms-track-description + (format emms-mode-line-format + (emms-track-description (emms-playlist-current-selected-track)))) (defvar emms-mode-line-initial-titlebar frame-title-format) @@ -65,19 +65,17 @@ (or global-mode-string (setq global-mode-string '(""))) (if (and arg (> arg 0)) (progn - (add-hook 'emms-playlist-current-track-changed-hook - 'emms-mode-line-alter) + (add-hook 'emms-track-updated-functions 'emms-mode-line-alter) (add-hook 'emms-player-finished-hook 'emms-mode-line-blank) (add-hook 'emms-player-stopped-hook 'emms-mode-line-blank) - (add-hook 'emms-player-started-hook 'emms-mode-line-alter) + (add-hook 'emms-player-started-hook 'emms-mode-line-alter) (when (and emms-mode-line-mode-line-function (not (member 'emms-mode-line-string global-mode-string))) (setq global-mode-string (append global-mode-string '(emms-mode-line-string)))) (when emms-player-playing-p (emms-mode-line-alter))) - (remove-hook 'emms-playlist-current-track-changed-hook - 'emms-mode-line-alter) + (remove-hook 'emms-track-updated-functions 'emms-mode-line-alter) (remove-hook 'emms-player-finished-hook 'emms-mode-line-blank) (remove-hook 'emms-player-stopped-hook 'emms-mode-line-blank) (remove-hook 'emms-player-started-hook 'emms-mode-line-alter) @@ -108,7 +106,7 @@ (setq emms-mode-line-string nil) (force-mode-line-update) (emms-mode-line-restore-titlebar)) - + (defun emms-mode-line-restore-mode-line () "Restore the mode-line." (when emms-mode-line-mode-line-function |