branch: elpa/subed
commit a29a89293ddf4b7d4415d1bab0a07f51e514d5a4
Author: Sacha Chua <[email protected]>
Commit: Sacha Chua <[email protected]>
Bugfix: Don't mess with the subed-milliseconds-adjust variable
* subed/subed-waveform.el (subed-waveform-reduce-start-time):
Don't mess with the subed-milliseconds-adjust variable.
---
subed/subed-waveform.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/subed/subed-waveform.el b/subed/subed-waveform.el
index d7da65c4dd4..6f9f4695d44 100644
--- a/subed/subed-waveform.el
+++ b/subed/subed-waveform.el
@@ -643,7 +643,9 @@ Copy it to the start time of the next subtitle, leaving a
gap of
(x2 (car (elt (elt
event 1) 2)))
(msecs
(floor (* 1000
(/ (- x1 x2) ; pixels moved
- (get-text-property 0
'waveform-pixels-per-second obj))))))
+ (get-text-property 0
'waveform-pixels-per-second obj)))))
+ (subed-milliseconds-adjust
+ subed-milliseconds-adjust)) ; don't save this change
(subed-adjust-subtitle-time-start
msecs))))))
(defun subed-waveform-increase-stop-time (event)
@@ -659,7 +661,9 @@ by `subed-milliseconds-adjust' milliseconds."
(when pixels-per-second
(let* ((x1 (car (elt (elt event 2) 2)))
(x2 (car (elt (elt
event 1) 2)))
- (msecs
+
(subed-milliseconds-adjust
+ subed-milliseconds-adjust) ; don't save this change
+ (msecs
(floor (* 1000
(/ (- x1 x2) ; pixels moved
pixels-per-second)))))
(subed-adjust-subtitle-time-stop msecs)
