[nongnu] elpa/subed b94330f 214/389: Fix indentations

[ELPA Syncer]

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

    Fix indentations
---
 subed/subed-srt.el  |  2 +-
 subed/subed.el      | 40 ++++++++++++++++++++--------------------
 tests/test-subed.el |  4 ++--
 3 files changed, 23 insertions(+), 23 deletions(-)

diff --git a/subed/subed-srt.el b/subed/subed-srt.el
index d26ea62..1de71a1 100644
--- a/subed/subed-srt.el
+++ b/subed/subed-srt.el
@@ -388,7 +388,7 @@ following manner:
                                     ;; We're inserting between subtitles or
                                     ;; before the first one
                                     (when (subed-srt--backward-subtitle-id)
-                                           (subed-srt--subtitle-msecs-stop))
+                                      (subed-srt--subtitle-msecs-stop))
                                   ;; We're append after the last subtitle
                                   (subed-srt--subtitle-msecs-stop))))
              ;; nil when there's no next subtitle
diff --git a/subed/subed.el b/subed/subed.el
index 61d6b71..ab940dd 100644
--- a/subed/subed.el
+++ b/subed/subed.el
@@ -160,9 +160,9 @@ Before BODY is run, point is placed on the subtitle's ID."
                                  (let ((sub-end (save-excursion 
(subed-jump-to-subtitle-end))))
                                    (when (< sub-end begm)
                                      (throw 'first-subtitle-reached t)))
-                                   (progn ,@body)
-                                   (unless (subed-backward-subtitle-id)
-                                     (throw 'first-subtitle-reached t)))))
+                                 (progn ,@body)
+                                 (unless (subed-backward-subtitle-id)
+                                   (throw 'first-subtitle-reached t)))))
            ;; Iterate forwards
            (save-excursion (goto-char begm)
                            (subed-jump-to-subtitle-id)
@@ -324,7 +324,7 @@ See `subed-increase-start-time' about ARG."
   (interactive)
   (subed-srt--jump-to-subtitle-time-start)
   (when (and subed-mpv-playback-position
-            (looking-at subed-srt--regexp-timestamp))
+                (looking-at subed-srt--regexp-timestamp))
     (replace-match (subed-srt--msecs-to-timestamp subed-mpv-playback-position))
     (subed--run-subtitle-time-adjusted-hook)))
 
@@ -333,7 +333,7 @@ See `subed-increase-start-time' about ARG."
   (interactive)
   (subed-srt--jump-to-subtitle-time-stop)
   (when (and subed-mpv-playback-position
-            (looking-at subed-srt--regexp-timestamp))
+                (looking-at subed-srt--regexp-timestamp))
     (replace-match (subed-srt--msecs-to-timestamp subed-mpv-playback-position))
     (subed--run-subtitle-time-adjusted-hook)))
 
@@ -360,13 +360,13 @@ but we move the start time first."
           (when msecs (subed-adjust-subtitle-time-start msecs
                                                         
:ignore-negative-duration
                                                         ignore-limits))))
-  (lambda (msecs &optional ignore-limits)
-    (let ((msecs (subed-adjust-subtitle-time-start msecs
-                                                   :ignore-negative-duration
-                                                   ignore-limits)))
-      (when msecs (subed-adjust-subtitle-time-stop msecs
-                                                   :ignore-negative-duration
-                                                   ignore-limits))))))
+    (lambda (msecs &optional ignore-limits)
+      (let ((msecs (subed-adjust-subtitle-time-start msecs
+                                                     :ignore-negative-duration
+                                                     ignore-limits)))
+        (when msecs (subed-adjust-subtitle-time-stop msecs
+                                                     :ignore-negative-duration
+                                                     ignore-limits))))))
 
 (defun subed--move-current-subtitle (msecs)
   "Move subtitle on point by MSECS milliseconds."
@@ -791,14 +791,14 @@ Return nil if function `buffer-file-name' returns nil."
   (when (buffer-file-name)
     (catch 'found-videofile
       (let* ((file-base (file-name-sans-extension (buffer-file-name)))
-            (file-stem (file-name-sans-extension file-base)))
-       (dolist (extension subed-video-extensions)
-         (let ((file-base-video (format "%s.%s" file-base extension))
-               (file-stem-video (format "%s.%s" file-stem extension)))
-           (when (file-exists-p file-base-video)
-             (throw 'found-videofile file-base-video))
-           (when (file-exists-p file-stem-video)
-             (throw 'found-videofile file-stem-video))))))))
+                (file-stem (file-name-sans-extension file-base)))
+           (dolist (extension subed-video-extensions)
+             (let ((file-base-video (format "%s.%s" file-base extension))
+                       (file-stem-video (format "%s.%s" file-stem extension)))
+               (when (file-exists-p file-base-video)
+                 (throw 'found-videofile file-base-video))
+               (when (file-exists-p file-stem-video)
+                 (throw 'found-videofile file-stem-video))))))))
 
 
 ;;;###autoload
diff --git a/tests/test-subed.el b/tests/test-subed.el
index e5ca350..10e8ca3 100644
--- a/tests/test-subed.el
+++ b/tests/test-subed.el
@@ -917,8 +917,8 @@
       (expect 'run-at-time :to-have-been-called-with
               subed-point-sync-delay-after-motion nil
               '(closure (t) nil
-                (setq subed--point-sync-delay-after-motion-timer nil)
-                (subed-enable-sync-point-to-player :quiet))))
+                        (setq subed--point-sync-delay-after-motion-timer nil)
+                        (subed-enable-sync-point-to-player :quiet))))
     (it "cancels previously scheduled re-enabling of point-to-player syncing."
       (subed-disable-sync-point-to-player-temporarily)
       (expect 'cancel-timer :not :to-have-been-called-with "mock timer")