emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/subed 5131bc4 009/389: Add subed-srt-forward/backward-subt


From: ELPA Syncer
Subject: [nongnu] elpa/subed 5131bc4 009/389: Add subed-srt-forward/backward-subtitle-end functions
Date: Fri, 3 Dec 2021 10:59:46 -0500 (EST)

branch: elpa/subed
commit 5131bc49c35b752c48c8af27838771e8441f299d
Author: Random User <rndusr@posteo.de>
Commit: Random User <rndusr@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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]