branch: elpa/subed
commit 433f7b4f9cbc9522ab18d69aec7167b7a40986c7
Author: Random User <rnd...@posteo.de>
Commit: Random User <rnd...@posteo.de>
subed-disable-sync-point-to-player-temporarily: Remove debug msgs
---
subed/subed.el | 16 +++-------------
tests/test-subed.el | 3 +--
2 files changed, 4 insertions(+), 15 deletions(-)
diff --git a/subed/subed.el b/subed/subed.el
index 997dbc0..d1eaedb 100644
--- a/subed/subed.el
+++ b/subed/subed.el
@@ -199,26 +199,16 @@ playing subtitle."
"If point is synced to playback position, temporarily disable
that for `subed-point-sync-delay-after-motion' seconds."
(if subed--point-sync-delay-after-motion-timer
- (progn
- (subed-debug "Cancelling old timer (should be nil: %s)"
(subed-sync-point-to-player-p))
- (cancel-timer subed--point-sync-delay-after-motion-timer))
- (progn
- (setq subed--point-was-synced (subed-sync-point-to-player-p))
- (subed-debug "Remembering whether point was originally synced: %s"
subed--point-was-synced)))
-
+ (cancel-timer subed--point-sync-delay-after-motion-timer)
+ (setq subed--point-was-synced (subed-sync-point-to-player-p)))
(when subed--point-was-synced
- (subed-debug "Temporarily disabling point-to-player syncing (should be t:
%s)"
- (subed-sync-point-to-player-p))
(subed-disable-sync-point-to-player))
-
(when subed--point-was-synced
- (subed-debug "Re-enabling point-to-player syncing in %s seconds"
subed-point-sync-delay-after-motion)
(setq subed--point-sync-delay-after-motion-timer
(run-at-time subed-point-sync-delay-after-motion nil
(lambda ()
(setq subed--point-sync-delay-after-motion-timer nil)
- (subed-enable-sync-point-to-player)
- (subed-debug "Re-added: %s"
subed-mpv-playback-position-hook))))))
+ (subed-enable-sync-point-to-player))))))
;;; Sync player-to-point
diff --git a/tests/test-subed.el b/tests/test-subed.el
index b4b450e..35b0849 100644
--- a/tests/test-subed.el
+++ b/tests/test-subed.el
@@ -81,8 +81,7 @@
subed-point-sync-delay-after-motion nil
(lambda ()
(setq
subed--point-sync-delay-after-motion-timer nil)
- (subed-enable-sync-point-to-player)
- (subed-debug "Re-added: %s"
subed-mpv-playback-position-hook))))
+ (subed-enable-sync-point-to-player))))
(it "cancels previously scheduled re-enabling of
point-to-player syncing."
(subed-disable-sync-point-to-player-temporarily)
(expect 'cancel-timer :not :to-have-been-called-with
"mock timer")
