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

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

[nongnu] elpa/subed 239deaf 246/389: subed-copy-player-pos-to-start/stop


From: ELPA Syncer
Subject: [nongnu] elpa/subed 239deaf 246/389: subed-copy-player-pos-to-start/stop-time: Use generic functions
Date: Fri, 3 Dec 2021 11:00:35 -0500 (EST)

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

    subed-copy-player-pos-to-start/stop-time: Use generic functions
---
 subed/subed.el | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/subed/subed.el b/subed/subed.el
index cffacda..326e23f 100644
--- a/subed/subed.el
+++ b/subed/subed.el
@@ -328,21 +328,19 @@ See `subed-increase-start-time' about ARG."
   (subed-adjust-subtitle-time-stop (* -1 (subed-get-milliseconds-adjust arg))))
 
 (defun subed-copy-player-pos-to-start-time ()
-  "Replace current subtitle's start timestamp with mpv player's current 
timestamp."
+  "Replace current subtitle's start time with current playback time."
   (interactive)
-  (subed-srt--jump-to-subtitle-time-start)
   (when (and subed-mpv-playback-position
-                (looking-at subed-srt--regexp-timestamp))
-    (replace-match (subed-srt--msecs-to-timestamp subed-mpv-playback-position))
+                (subed-subtitle-msecs-start))
+    (subed-set-subtitle-time-start subed-mpv-playback-position)
     (subed--run-subtitle-time-adjusted-hook)))
 
 (defun subed-copy-player-pos-to-stop-time ()
-  "Replace current subtitle's stop timestamp with mpv player's current 
timestamp."
+  "Replace current subtitle's stop time with current playback time."
   (interactive)
-  (subed-srt--jump-to-subtitle-time-stop)
   (when (and subed-mpv-playback-position
-                (looking-at subed-srt--regexp-timestamp))
-    (replace-match (subed-srt--msecs-to-timestamp subed-mpv-playback-position))
+                (subed-subtitle-msecs-stop))
+    (subed-set-subtitle-time-stop subed-mpv-playback-position)
     (subed--run-subtitle-time-adjusted-hook)))
 
 



reply via email to

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