diff options
| author | forcer <forcer> | 2006-05-31 00:23:00 +0000 |
|---|---|---|
| committer | forcer <mwolson@gnu.org> | 2006-05-31 00:23:00 +0000 |
| commit | 2ecf0171dd396fabfa4b6919ef10b7a561164f0f (patch) | |
| tree | e8e6a081011bd810beb2c3a4611080dea1e84f84 | |
| parent | f168ce641347671400a631743681bbdc71bd3c33 (diff) | |
emms-volume.el: Minor cosmetic cleanup
darcs-hash:20060531002351-2189f-cedd0ca3350a02fc8deda9ec51e1e33f05ab9ecc.gz
| -rw-r--r-- | emms-volume.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/emms-volume.el b/emms-volume.el index 1b3f4d2..bfd2733 100644 --- a/emms-volume.el +++ b/emms-volume.el @@ -105,14 +105,15 @@ If you have your own functions for changing volume, set this and (defun emms-volume-mode-set-timer () "Set a new `emms-volume-minor-mode' timer." - (unless (null emms-volume-mode-timer) + (when emms-volume-mode-timer (emms-volume-mode-disable-timer)) (setq emms-volume-mode-timer (run-at-time emms-volume-mode-timeout - nil - 'emms-volume-mode-timer-timeout))) + nil + 'emms-volume-mode-timer-timeout))) (defun emms-volume-mode-timer-timeout () "Function to disable `emms-volume-minor-mode' at timeout." + (setq emms-volume-mode-timer nil) (emms-volume-minor-mode -1)) (defun emms-volume-mode-start-or-extend () @@ -122,5 +123,4 @@ If you have your own functions for changing volume, set this and (emms-volume-mode-set-timer)) (provide 'emms-volume) - ;;; emms-volume.el ends here |