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-mode-line.el | |
parent | f992e4c98b1d472acb802ea2a149f087c2656034 (diff) |
Change the function quoting style to help the compiler.
Patch by Stefan Monnier
Diffstat (limited to 'emms-mode-line.el')
-rw-r--r-- | emms-mode-line.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/emms-mode-line.el b/emms-mode-line.el index 2c49075..f35750d 100644 --- a/emms-mode-line.el +++ b/emms-mode-line.el @@ -38,7 +38,7 @@ :prefix "emms-mode-line-" :group 'emms) -(defcustom emms-mode-line-mode-line-function 'emms-mode-line-playlist-current +(defcustom emms-mode-line-mode-line-function #'emms-mode-line-playlist-current "Function for showing infos in mode-line or nil if don't want to." :type '(choice (const :tag "Don't show info on mode-line" nil) function)) @@ -69,10 +69,10 @@ (if (and arg (> arg 0)) (progn (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) + (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) (when (and emms-mode-line-mode-line-function (not (member 'emms-mode-line-string global-mode-string))) (setq global-mode-string @@ -80,10 +80,10 @@ '(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) - (remove-hook 'emms-player-started-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) (emms-mode-line-restore-titlebar) (emms-mode-line-restore-mode-line))) |