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

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

[nongnu] elpa/subed 433f7b4 003/389: subed-disable-sync-point-to-player-


From: ELPA Syncer
Subject: [nongnu] elpa/subed 433f7b4 003/389: subed-disable-sync-point-to-player-temporarily: Remove debug msgs
Date: Fri, 3 Dec 2021 10:59:45 -0500 (EST)

branch: elpa/subed
commit 433f7b4f9cbc9522ab18d69aec7167b7a40986c7
Author: Random User <rndusr@posteo.de>
Commit: Random User <rndusr@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")



reply via email to

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