branch: elpa/subed
commit b94330ff549ce68e2f08c7e2b496939fb72db49b
Author: Random User <rnd...@posteo.de>
Commit: Random User <rnd...@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")
