[nongnu] elpa/subed 2f86a8e 030/389: Add function: subed-srt--subtitle-text

[ELPA Syncer]

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