[nongnu] elpa/subed 3fafab8 125/389: Disable subtitle replay during subtitle movement

[ELPA Syncer]

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

    Disable subtitle replay during subtitle movement
---
 subed/subed.el | 22 ++++++++++++++++------
 1 file changed, 16 insertions(+), 6 deletions(-)

diff --git a/subed/subed.el b/subed/subed.el
index b370136..e372e26 100644
--- a/subed/subed.el
+++ b/subed/subed.el
@@ -200,9 +200,14 @@ Example usage:
         (msecs (subed--get-milliseconds-move arg))
         (beg (when (use-region-p) (region-beginning)))
         (end (when (use-region-p) (region-end))))
-    (subed--for-each-subtitle beg end
-      (subed--adjust-subtitle-start-relative msecs)
-      (subed--adjust-subtitle-stop-relative msecs))))
+    (subed--with-subtitle-replay-disabled
+      (subed--for-each-subtitle beg end
+        (subed--adjust-subtitle-start-relative msecs)
+        (subed--adjust-subtitle-stop-relative msecs)))
+    (when (subed-replay-adjusted-subtitle-p)
+      (save-excursion
+        (when beg (goto-char beg))
+        (subed-mpv-jump (subed--subtitle-msecs-start))))))
 
 (defun subed-move-subtitle-backward (&optional arg)
   "Move subtitle `subed-milliseconds-move' backward in time while
@@ -215,9 +220,14 @@ See `subed-move-subtitle-forward'."
         (msecs (* -1 (subed--get-milliseconds-move arg)))
         (beg (when (use-region-p) (region-beginning)))
         (end (when (use-region-p) (region-end))))
-    (subed--for-each-subtitle beg end
-      (subed--adjust-subtitle-start-relative msecs)
-      (subed--adjust-subtitle-stop-relative msecs))))
+    (subed--with-subtitle-replay-disabled
+      (subed--for-each-subtitle beg end
+        (subed--adjust-subtitle-start-relative msecs)
+        (subed--adjust-subtitle-stop-relative msecs)))
+    (when (subed-replay-adjusted-subtitle-p)
+      (save-excursion
+        (when beg (goto-char beg))
+        (subed-mpv-jump (subed--subtitle-msecs-start))))))
 
 
 ;;; Replay time-adjusted subtitle