branch: elpa/subed
commit 2f86a8ea52a7853368b431f4591a31864c7d4226
Author: Random User <rnd...@posteo.de>
Commit: Random User <rnd...@posteo.de>
Add function: subed-srt--subtitle-text
---
subed/subed-srt.el | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/subed/subed-srt.el b/subed/subed-srt.el
index 9381a75..da1b86a 100644
--- a/subed/subed-srt.el
+++ b/subed/subed-srt.el
@@ -106,6 +106,14 @@ after MSECS if there is one and its start time is >= MSECS
+
(when timestamp
(subed-srt--timestamp-to-msecs timestamp))))
+(defun subed-srt--subtitle-text (&optional sub-id)
+ "Return subtitle's text."
+ (or (save-excursion
+ (let ((beg (subed-srt-move-to-subtitle-text sub-id))
+ (end (subed-srt-move-to-subtitle-end sub-id)))
+ (when (and beg end)
+ (buffer-substring beg end)))) ""))
+
(defun subed-srt--subtitle-relative-point ()
"Point relative to subtitle's ID or nil if ID can't be found."
(let ((start-point (save-excursion
