branch: elpa/subed commit 205d3c8e7e2461032655f4430f39c0166a0f35bb Author: Random User <rnd...@posteo.de> Commit: Random User <rnd...@posteo.de>
Add subed-shift-subtitle-forward/backward --- subed/subed.el | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) diff --git a/subed/subed.el b/subed/subed.el index efeda0b..6601985 100644 --- a/subed/subed.el +++ b/subed/subed.el @@ -232,6 +232,28 @@ See `subed-move-subtitle-forward'." (subed-move-subtitles msecs beg end))) +;;; Shifting subtitles +;;; (same as moving, but follow-up subtitles are also moved) + +(defun subed-shift-subtitle-forward (&optional arg) + "Shifting subtitles is like moving them, but it always moves +the subtitles between point and the end of the buffer." + (interactive "P") + (let ((deactivate-mark nil) + (msecs (subed--get-milliseconds-adjust arg)) + (beg (if (use-region-p) (region-beginning) (point)))) + (subed-move-subtitles msecs beg))) + +(defun subed-shift-subtitle-backward (&optional arg) + "Shifting subtitles is like moving them, but it always moves +the subtitles between point and the end of the buffer." + (interactive "P") + (let ((deactivate-mark nil) + (msecs (* -1 (subed--get-milliseconds-adjust arg))) + (beg (if (use-region-p) (region-beginning) (point)))) + (subed-move-subtitles msecs beg))) + + ;;; Replay time-adjusted subtitle (defun subed-replay-adjusted-subtitle-p () "Whether adjusting a subtitle's start/stop time causes the