emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/emms 0657a1f: * emms-player-mpv.el: fix calling emms-pl


From: ELPA Syncer
Subject: [elpa] externals/emms 0657a1f: * emms-player-mpv.el: fix calling emms-player-paused-hook twice on pause/unpause from emms
Date: Tue, 19 Oct 2021 16:57:16 -0400 (EDT)

branch: externals/emms
commit 0657a1facdf39464a0049e2abaec850da5057854
Author: Mike Kazantsev <mk.fraggod@gmail.com>
Commit: fraggod@malediction <mk.fraggod@gmail.com>

    * emms-player-mpv.el: fix calling emms-player-paused-hook twice on 
pause/unpause from emms
---
 emms-player-mpv.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/emms-player-mpv.el b/emms-player-mpv.el
index 7bf8a8c..e4a8ceb 100644
--- a/emms-player-mpv.el
+++ b/emms-player-mpv.el
@@ -675,12 +675,14 @@ Called before `emms-player-mpv-event-functions' and does 
same thing as these hoo
        (emms-player-started emms-player-mpv))
      (emms-player-mpv-event-playing-time-sync))
     ("pause"
-     (setq emms-player-paused-p t)
-     (run-hooks 'emms-player-paused-hook))
+     (unless emms-player-paused-p
+       (setq emms-player-paused-p t)
+       (run-hooks 'emms-player-paused-hook)))
     ("unpause"
      (emms-player-mpv-event-playing-time-sync)
-     (setq emms-player-paused-p nil)
-     (run-hooks 'emms-player-paused-hook))
+     (when emms-player-paused-p
+       (setq emms-player-paused-p nil)
+       (run-hooks 'emms-player-paused-hook)))
     ("end-file"
      (when (emms-player-mpv-proc-playing-p)
        (emms-player-mpv-proc-playing nil)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]