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-player-mpv.el | |
| parent | f992e4c98b1d472acb802ea2a149f087c2656034 (diff) | |
Change the function quoting style to help the compiler.
Patch by Stefan Monnier
Diffstat (limited to 'emms-player-mpv.el')
| -rw-r--r-- | emms-player-mpv.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/emms-player-mpv.el b/emms-player-mpv.el index 7d9099a..922f870 100644 --- a/emms-player-mpv.el +++ b/emms-player-mpv.el @@ -1,6 +1,6 @@ ;;; emms-player-mpv.el --- mpv support for EMMS -*- lexical-binding: t; -*- ;; -;; Copyright (C) 2018 Free Software Foundation, Inc. +;; Copyright (C) 2018-2021 Free Software Foundation, Inc. ;; Authors: Mike Kazantsev <mk.fraggod@gmail.com> @@ -277,7 +277,7 @@ Strips whitespace from start/end of TPL-OR-MSG and strings in TPL-VALUES." (setq tpl-or-msg (replace-regexp-in-string "%" "%%" tpl-or-msg t t))) (let ((ts (float-time))) (unless emms-player-mpv-debug-ts-offset (setq emms-player-mpv-debug-ts-offset ts)) - (apply 'message + (apply #'message (concat "emms-player-mpv %.1f " tpl-or-msg) (- ts emms-player-mpv-debug-ts-offset) tpl-values)))) @@ -816,7 +816,7 @@ if there was any issue when trying to start it initially." track-name 'replace)) (start-func `(lambda () (emms-player-mpv-cmd ',start-cmd - (apply-partially 'emms-player-mpv-start-error-handler ',start-cmd))))) + (apply-partially #'emms-player-mpv-start-error-handler ',start-cmd))))) (if emms-player-mpv-ipc-stop-command (setq emms-player-mpv-ipc-stop-command start-func) (funcall start-func)))))) |