[nongnu] elpa/subed f06d5f8 124/389: Add macro: subed--with-subtitle-replay-disabled

[ELPA Syncer]

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