branch: elpa/subed
commit 5131bc49c35b752c48c8af27838771e8441f299d
Author: Random User <rnd...@posteo.de>
Commit: Random User <rnd...@posteo.de>
Add subed-srt-forward/backward-subtitle-end functions
---
subed/subed-srt.el | 14 ++++++++++++++
1 file changed, 14 insertions(+)
diff --git a/subed/subed-srt.el b/subed/subed-srt.el
index d501386..ac7fce5 100644
--- a/subed/subed-srt.el
+++ b/subed/subed-srt.el
@@ -226,6 +226,20 @@ Return point or nil if there is no previous subtitle."
(when (subed-srt-backward-subtitle-id)
(subed-srt-move-to-subtitle-text)))
+(defun subed-srt-forward-subtitle-end ()
+ "Move point to end of next subtitle.
+Return point or nil if there is no next subtitle."
+ (interactive)
+ (when (subed-srt-forward-subtitle-id)
+ (subed-srt-move-to-subtitle-end)))
+
+(defun subed-srt-backward-subtitle-end ()
+ "Move point to end of previous subtitle.
+Return point or nil if there is no previous subtitle."
+ (interactive)
+ (when (subed-srt-backward-subtitle-id)
+ (subed-srt-move-to-subtitle-end)))
+
(defun subed-srt-forward-subtitle-time-start ()
"Move point to next subtitle's start time."
(interactive)
