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

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

[nongnu] elpa/subed 800b7aa 166/389: Move timer variables from subed-con


From: ELPA Syncer
Subject: [nongnu] elpa/subed 800b7aa 166/389: Move timer variables from subed-config.el to where they are used
Date: Fri, 3 Dec 2021 11:00:19 -0500 (EST)

branch: elpa/subed
commit 800b7aa3584888f1ae3666b0ad6495b57c1ee852
Author: Random User <rndusr@posteo.de>
Commit: Random User <rndusr@posteo.de>

    Move timer variables from subed-config.el to where they are used
---
 subed/subed-config.el | 8 --------
 subed/subed.el        | 2 ++
 2 files changed, 2 insertions(+), 8 deletions(-)

diff --git a/subed/subed-config.el b/subed/subed-config.el
index 421fdc8..7deb9d0 100644
--- a/subed/subed-config.el
+++ b/subed/subed-config.el
@@ -153,10 +153,6 @@ unpausing the player."
   :type 'float
   :group 'subed)
 
-(defvar-local subed--unpause-after-typing-timer nil
-  "Timer that waits before unpausing the player after the user
-typed something.")
-
 (defvar-local subed--player-is-auto-paused nil
   "Whether the player was paused by the user or automatically.")
 
@@ -198,10 +194,6 @@ was moved by the user."
   :type 'float
   :group 'subed)
 
-(defvar-local subed--point-sync-delay-after-motion-timer nil
-  "Timer that waits before re-adding
-`subed--sync-point-to-player' after temporarily removing it.")
-
 (defvar-local subed--point-was-synced nil
   "When temporarily disabling point-to-player sync, this variable
 remembers whether it was originally enabled by the user.")
diff --git a/subed/subed.el b/subed/subed.el
index b9c98af..9a9f120 100644
--- a/subed/subed.el
+++ b/subed/subed.el
@@ -397,6 +397,7 @@ playing subtitle."
     (run-hooks 'post-command-hook)
     (add-hook 'post-command-hook #'subed--post-command-handler :append 
:local)))
 
+(defvar-local subed--point-sync-delay-after-motion-timer nil)
 (defun subed-disable-sync-point-to-player-temporarily ()
   "If point is synced to playback position, temporarily disable
 that for `subed-point-sync-delay-after-motion' seconds."
@@ -549,6 +550,7 @@ buffer."
       (subed-disable-pause-while-typing)
     (subed-enable-pause-while-typing)))
 
+(defvar-local subed--unpause-after-typing-timer nil)
 (defun subed--pause-while-typing (&rest args)
   "Pause or slow down playback for `subed-unpause-after-typing-delay' seconds."
   (when subed--unpause-after-typing-timer



reply via email to

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