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)))