branch: elpa/subed
commit 3fafab8939756e99d10c9a5a096f030de65ef0a1
Author: Random User <rnd...@posteo.de>
Commit: Random User <rnd...@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
