From a51ac5b1fa967413d81530a722a5866eb43c4e4b Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Tue, 20 Apr 2021 17:34:55 -0400 Subject: Change the function quoting style to help the compiler. Patch by Stefan Monnier --- emms-player-simple.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'emms-player-simple.el') diff --git a/emms-player-simple.el b/emms-player-simple.el index dd7eec9..ca1bc1c 100644 --- a/emms-player-simple.el +++ b/emms-player-simple.el @@ -75,7 +75,7 @@ to call the player and ARGS are the command line arguments." (defcustom ,parameters ',args ,(concat "The arguments to `" (symbol-name command-name) "'.") :type '(repeat string)) - (defcustom ,player-name (emms-player ',start ',stop ',playablep) + (defcustom ,player-name (emms-player #',start #',stop #',playablep) ,(concat "A player for EMMS.") :type '(cons symbol alist)) (emms-player-set ,player-name 'regex ,regex) @@ -113,14 +113,14 @@ to call the player and ARGS are the command line arguments." "Starts a process playing FILENAME using the specified CMDNAME with the specified PARAMS. PLAYER is the name of the current player." - (let ((process (apply 'start-process + (let ((process (apply #'start-process emms-player-simple-process-name nil cmdname ;; splice in params here (append params (list filename))))) ;; add a sentinel for signaling termination - (set-process-sentinel process 'emms-player-simple-sentinel)) + (set-process-sentinel process #'emms-player-simple-sentinel)) (emms-player-started player)) (defun emms-player-simple-sentinel (proc str) -- cgit v1.2.3