branch: elpa/subed
commit 87b382358eb59abb2aadb35c94804a00fc1285a8
Author: Sacha Chua <[email protected]>
Commit: Random User <[email protected]>
subed-split-subtitle works at the beginning or end of subtitle text
* subed/subed-common.el (subed-split-subtitle): Allow splitting at the
beginning or end of subtitle text.
---
subed/subed-common.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/subed/subed-common.el b/subed/subed-common.el
index e99beea..d16f5e0 100644
--- a/subed/subed-common.el
+++ b/subed/subed-common.el
@@ -637,17 +637,17 @@ Update the end timestamp accordingly."
(let* ((end-timestamp (subed-subtitle-msecs-stop))
(orig (point))
(text-beg (save-excursion (subed-jump-to-subtitle-text)))
- (text-end (save-excursion (subed-jump-to-subtitle-end)))
- (text (buffer-substring orig (save-excursion
(subed-jump-to-subtitle-end) (point)))))
+ (text-end (save-excursion (or (subed-jump-to-subtitle-end) (point))))
+ (text (buffer-substring orig text-end)))
(unless subed-mpv-playback-position
(error "Not playing back in MPV"))
- (unless (and text-beg text-end (> orig text-beg) (< orig text-end))
+ (unless (and text-beg text-end (>= orig text-beg) (<= orig text-end))
(error "Not in the middle of subtitle text"))
(when (or (> subed-mpv-playback-position end-timestamp)
(< subed-mpv-playback-position (subed-subtitle-msecs-start)))
(error "Not in the currently playing subtitle segment"))
(subed-set-subtitle-time-stop subed-mpv-playback-position)
- (delete-region (point) (subed-jump-to-subtitle-end))
+ (delete-region (point) text-end)
(subed-append-subtitle nil subed-mpv-playback-position end-timestamp
(string-trim text))
(subed-regenerate-ids-soon)))
