[nongnu] elpa/subed 070384b 302/389: subed--set-subtitle-loop: Don't croak on empty file

[ELPA Syncer]

branch: elpa/subed
commit 070384b540893ee0eded8f04a514eef381e74838
Author: Random User <rndusr@posteo.de>
Commit: Random User <rndusr@posteo.de>

    subed--set-subtitle-loop: Don't croak on empty file
---
 subed/subed-common.el | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

diff --git a/subed/subed-common.el b/subed/subed-common.el
index 82ed3c2..1f2312e 100644
--- a/subed/subed-common.el
+++ b/subed/subed-common.el
@@ -829,16 +829,17 @@ If QUIET is non-nil, do not display a message in the 
minibuffer."
 
 (defun subed--set-subtitle-loop (&optional sub-id)
   "Set loop positions to start/stop time of SUB-ID or current subtitle."
-  (setq subed--subtitle-loop-start (- (subed-subtitle-msecs-start sub-id)
-                                      (* subed-loop-seconds-before 1000))
-        subed--subtitle-loop-stop (+ (subed-subtitle-msecs-stop sub-id)
-                                     (* subed-loop-seconds-after 1000)))
-  (subed-debug "Set loop: %s - %s"
+  (let ((msecs-start (subed-subtitle-msecs-start sub-id))
+        (msecs-stop (subed-subtitle-msecs-stop sub-id)))
+    (when (and msecs-start msecs-stop)
+      (setq subed--subtitle-loop-start (- msecs-start (* 
subed-loop-seconds-before 1000))
+            subed--subtitle-loop-stop (+ msecs-stop (* 
subed-loop-seconds-after 1000)))
+      (subed-debug "Set loop: %s - %s"
+                   (subed-srt--msecs-to-timestamp subed--subtitle-loop-start)
+                   (subed-srt--msecs-to-timestamp subed--subtitle-loop-stop))
+      (message "Looping over %s - %s"
                (subed-srt--msecs-to-timestamp subed--subtitle-loop-start)
-               (subed-srt--msecs-to-timestamp subed--subtitle-loop-stop))
-  (message "Looping over %s - %s"
-           (subed-srt--msecs-to-timestamp subed--subtitle-loop-start)
-           (subed-srt--msecs-to-timestamp subed--subtitle-loop-stop)))
+               (subed-srt--msecs-to-timestamp subed--subtitle-loop-stop)))))
 
 (defun subed--ensure-subtitle-loop (cur-msecs)
   "Jump to current subtitle start time if CUR-MSECS is after stop time."