branch: elpa/subed
commit f06d5f8879062f98a561f26e1bfa6d20cb1be755
Author: Random User <rnd...@posteo.de>
Commit: Random User <rnd...@posteo.de>
Add macro: subed--with-subtitle-replay-disabled
---
subed/subed.el | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/subed/subed.el b/subed/subed.el
index 858b00a..b370136 100644
--- a/subed/subed.el
+++ b/subed/subed.el
@@ -159,6 +159,15 @@ Before BODY is run, point is placed on the subtitle's ID."
(unless (subed-forward-subtitle-id)
(throw 'last-subtitle-reached t))))))))
+(defmacro subed--with-subtitle-replay-disabled (&rest body)
+ "Run BODY while automatic subtitle replay is disabled."
+ (declare (indent defun))
+ `(let ((replay-was-enabled-p (subed-replay-adjusted-subtitle-p)))
+ (subed-disable-replay-adjusted-subtitle :quiet)
+ (progn ,@body)
+ (when replay-was-enabled-p
+ (subed-enable-replay-adjusted-subtitle :quiet))))
+
(defun subed--right-pad (string length fillchar)
"Use FILLCHAR to make STRING LENGTH characters long."
(concat string (make-string (- length (length string)) fillchar)))
