From e364b1999d4dde5a54e212792b987600ee7c5813 Mon Sep 17 00:00:00 2001 From: William Xu Date: Tue, 20 Mar 2007 11:57:00 +0000 Subject: emms-mode-line.el: Make `emms-mode-line-toggle' just work.. darcs-hash:20070320115727-cfa61-0ee8c7a2aa79be18ebfae19b7a6596e9fb84ae11.gz --- emms-mode-line.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'emms-mode-line.el') diff --git a/emms-mode-line.el b/emms-mode-line.el index 5e3233f..3ae653a 100644 --- a/emms-mode-line.el +++ b/emms-mode-line.el @@ -68,10 +68,10 @@ "Turn on `emms-mode-line' if ARG is positive, off otherwise." (interactive "p") (or global-mode-string (setq global-mode-string '(""))) - (setq emms-mode-line-active-p arg) (if (and arg (> arg 0)) (progn - (add-hook 'emms-track-updated-functions 'emms-mode-line-alter) + (setq emms-mode-line-active-p t) + (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) @@ -81,6 +81,7 @@ (append global-mode-string '(emms-mode-line-string)))) (when emms-player-playing-p (emms-mode-line-alter))) + (setq emms-mode-line-active-p nil) (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) -- cgit v1.2.3