[nongnu] elpa/subed 1c3fbbaa9f 2/7: Update loop after adjusting time

[ELPA Syncer]

branch: elpa/subed
commit 1c3fbbaa9ff1a148b5ae9221542141011447a8c9
Author: Sacha Chua <sacha@sachachua.com>
Commit: Sacha Chua <sacha@sachachua.com>

    Update loop after adjusting time
    
    * subed/subed-common.el (subed-increase-start-time,
    subed-decrease-start-time, subed-increase-stop-time,
    subed-decrease-stop-time): Update loop after adjusting.
    * subed/subed-waveform.el (subed-waveform-set-stop-and-copy-to-next):
    Update loop after adjusting.
---
 subed/subed-common.el   | 16 ++++++++++++----
 subed/subed-waveform.el |  4 +++-
 2 files changed, 15 insertions(+), 5 deletions(-)

diff --git a/subed/subed-common.el b/subed/subed-common.el
index 0fd3fe768c..cd5494c7d9 100644
--- a/subed/subed-common.el
+++ b/subed/subed-common.el
@@ -789,7 +789,9 @@ Example usage:
        \\[universal-argument] \\[subed-increase-start-time]  Increase start 
time by 100ms (the default)
            \\[subed-increase-start-time]  Increase start time by 100ms (the 
default) again"
   (interactive "P")
-  (subed-adjust-subtitle-time-start (subed-get-milliseconds-adjust arg)))
+  (subed-adjust-subtitle-time-start (subed-get-milliseconds-adjust arg))
+  (when (subed-loop-over-current-subtitle-p)
+    (subed--set-subtitle-loop)))
 
 (defun subed-decrease-start-time (&optional arg)
   "Subtract `subed-milliseconds-adjust' milliseconds from start time.
@@ -798,7 +800,9 @@ Return new start time in milliseconds or nil if it didn't 
change.
 
 See `subed-increase-start-time' about ARG."
   (interactive "P")
-  (subed-adjust-subtitle-time-start (* -1 (subed-get-milliseconds-adjust 
arg))))
+  (subed-adjust-subtitle-time-start (* -1 (subed-get-milliseconds-adjust arg)))
+  (when (subed-loop-over-current-subtitle-p)
+    (subed--set-subtitle-loop)))
 
 (defun subed-increase-stop-time (&optional arg)
   "Add `subed-milliseconds-adjust' milliseconds to stop time.
@@ -807,7 +811,9 @@ Return new stop time in milliseconds or nil if it didn't 
change.
 
 See `subed-increase-start-time' about ARG."
   (interactive "P")
-  (subed-adjust-subtitle-time-stop (subed-get-milliseconds-adjust arg)))
+  (subed-adjust-subtitle-time-stop (subed-get-milliseconds-adjust arg))
+  (when (subed-loop-over-current-subtitle-p)
+    (subed--set-subtitle-loop)))
 
 (defun subed-decrease-stop-time (&optional arg)
   "Subtract `subed-milliseconds-adjust' milliseconds from stop time.
@@ -816,7 +822,9 @@ Return new stop time in milliseconds or nil if it didn't 
change.
 
 See `subed-increase-start-time' about ARG."
   (interactive "P")
-  (subed-adjust-subtitle-time-stop (* -1 (subed-get-milliseconds-adjust arg))))
+  (subed-adjust-subtitle-time-stop (* -1 (subed-get-milliseconds-adjust arg)))
+  (when (subed-loop-over-current-subtitle-p)
+    (subed--set-subtitle-loop)))
 
 (defun subed-copy-player-pos-to-start-time ()
   "Replace current subtitle's start time with current playback time."
diff --git a/subed/subed-waveform.el b/subed/subed-waveform.el
index 18f044d47c..18391394ea 100644
--- a/subed/subed-waveform.el
+++ b/subed/subed-waveform.el
@@ -467,7 +467,9 @@ by `subed-milliseconds-adjust' milliseconds."
              (msecs
               (floor (* 1000 (/ (- x1 x2) ; pixels moved
                                 subed-waveform--pixels-per-second)))))
-        (subed-adjust-subtitle-time-stop msecs)))))
+        (subed-adjust-subtitle-time-stop msecs)
+        (when (subed-loop-over-current-subtitle-p)
+          (subed--set-subtitle-loop))))))
 
 (defun subed-waveform-split (event)
   "Split the current subtitle.