branch: elpa/subed
commit ee0e3eb94b1b068b8e17e1646b221bb57374aa61
Author: Random User <rnd...@posteo.de>
Commit: Random User <rnd...@posteo.de>
subed-insert-subtitle-adjacent: Maybe use reduced subtitle spacing
When there's not enough room for the default subtitle spacing, use the
reduced
spacing calculated by subed--insert-subtitle-info.
---
subed/subed.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/subed/subed.el b/subed/subed.el
index 16a010c..cffacda 100644
--- a/subed/subed.el
+++ b/subed/subed.el
@@ -652,12 +652,12 @@ following manner:
(- number-of-subs i 1)
i))
(msecs-start (if buffer-is-empty
- (* multiplier (+ subed-subtitle-spacing
msecs-per-sub))
+ (* multiplier (+ msecs-between msecs-per-sub))
(if insert-before-current
- (- msecs-max (* (1+ i) (+
subed-subtitle-spacing msecs-per-sub)))
+ (- msecs-max (* (1+ i) (+ msecs-between
msecs-per-sub)))
(+ msecs-min
- subed-subtitle-spacing
- (* i (+ msecs-per-sub
subed-subtitle-spacing))))))
+ msecs-between
+ (* i (+ msecs-per-sub msecs-between))))))
(msecs-stop (+ msecs-start msecs-per-sub)))
(subed-debug " Inserting new subtitle at %S - %S" msecs-start
msecs-stop)
(funcall insert-subtitle-func nil msecs-start msecs-stop nil)))
