emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/subed ee0e3eb 243/389: subed-insert-subtitle-adjacent: May


From: ELPA Syncer
Subject: [nongnu] elpa/subed ee0e3eb 243/389: subed-insert-subtitle-adjacent: Maybe use reduced subtitle spacing
Date: Fri, 3 Dec 2021 11:00:34 -0500 (EST)

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]