diff options
| author | Yoni Rabkin <yoni@rabkins.net> | 2021-04-20 17:34:55 -0400 |
|---|---|---|
| committer | Yoni Rabkin <yoni@rabkins.net> | 2021-04-20 17:34:55 -0400 |
| commit | a51ac5b1fa967413d81530a722a5866eb43c4e4b (patch) | |
| tree | 43dcf7f3389ae6091ec23f7b6c1dbbf14e6a9b8d /emms-playing-time.el | |
| parent | f992e4c98b1d472acb802ea2a149f087c2656034 (diff) | |
Change the function quoting style to help the compiler.
Patch by Stefan Monnier
Diffstat (limited to 'emms-playing-time.el')
| -rw-r--r-- | emms-playing-time.el | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/emms-playing-time.el b/emms-playing-time.el index bca96b1..11dc9e3 100644 --- a/emms-playing-time.el +++ b/emms-playing-time.el @@ -86,7 +86,7 @@ and `downtime' (e.g. -03:58)." (setq emms-playing-time 0) (unless emms-playing-time-display-timer (setq emms-playing-time-display-timer - (run-at-time t 1 'emms-playing-time-display)))) + (run-at-time t 1 #'emms-playing-time-display)))) (defun emms-playing-time-stop () "Remove playing time on the mode line." @@ -104,7 +104,7 @@ and `downtime' (e.g. -03:58)." (emms-playing-time-stop) (unless emms-playing-time-display-timer (setq emms-playing-time-display-timer - (run-at-time t 1 'emms-playing-time-display))))) + (run-at-time t 1 #'emms-playing-time-display))))) (defun emms-playing-time-seek (sec) "Seek forward or backward SEC playing time." @@ -133,22 +133,22 @@ could call `emms-playing-time-enable-display' and (setq emms-playing-time-p t emms-playing-time-display-p t) (emms-playing-time-mode-line) - (add-hook 'emms-player-started-hook 'emms-playing-time-start) - (add-hook 'emms-player-stopped-hook 'emms-playing-time-stop) - (add-hook 'emms-player-finished-hook 'emms-playing-time-stop) - (add-hook 'emms-player-paused-hook 'emms-playing-time-pause) - (add-hook 'emms-player-seeked-functions 'emms-playing-time-seek) - (add-hook 'emms-player-time-set-functions 'emms-playing-time-set)) + (add-hook 'emms-player-started-hook #'emms-playing-time-start) + (add-hook 'emms-player-stopped-hook #'emms-playing-time-stop) + (add-hook 'emms-player-finished-hook #'emms-playing-time-stop) + (add-hook 'emms-player-paused-hook #'emms-playing-time-pause) + (add-hook 'emms-player-seeked-functions #'emms-playing-time-seek) + (add-hook 'emms-player-time-set-functions #'emms-playing-time-set)) (setq emms-playing-time-p nil emms-playing-time-display-p nil) (emms-playing-time-stop) (emms-playing-time-restore-mode-line) - (remove-hook 'emms-player-started-hook 'emms-playing-time-start) - (remove-hook 'emms-player-stopped-hook 'emms-playing-time-stop) - (remove-hook 'emms-player-finished-hook 'emms-playing-time-stop) - (remove-hook 'emms-player-paused-hook 'emms-playing-time-pause) - (remove-hook 'emms-player-seeked-functions 'emms-playing-time-seek) - (remove-hook 'emms-player-time-set-functions 'emms-playing-time-set))) + (remove-hook 'emms-player-started-hook #'emms-playing-time-start) + (remove-hook 'emms-player-stopped-hook #'emms-playing-time-stop) + (remove-hook 'emms-player-finished-hook #'emms-playing-time-stop) + (remove-hook 'emms-player-paused-hook #'emms-playing-time-pause) + (remove-hook 'emms-player-seeked-functions #'emms-playing-time-seek) + (remove-hook 'emms-player-time-set-functions #'emms-playing-time-set))) ;;;###autoload (defun emms-playing-time-enable-display () |