[nongnu] elpa/subed cea86bccd0 3/9: New hook: subed-subtitle-merged-hook

[ELPA Syncer]

branch: elpa/subed
commit cea86bccd0479ae0175a5f6fe8e8dedefab7b5f6
Author: Sacha Chua <sacha@sachachua.com>
Commit: Sacha Chua <sacha@sachachua.com>

    New hook: subed-subtitle-merged-hook
    
    * subed/subed-config.el (subed-subtitle-merged-hook): New hook.
    * subed/subed-ass.el (subed--merge-with-next): Run 
subed-subtitle-merged-hook.
    * subed/subed-srt.el (subed--merge-with-next): Run 
subed-subtitle-merged-hook.
    * subed/subed-tsv.el (subed--merge-with-next): Run 
subed-subtitle-merged-hook.
    * subed/subed-vtt.el (subed--merge-with-next): Run 
subed-subtitle-merged-hook.
---
 subed/subed-ass.el    | 3 ++-
 subed/subed-config.el | 3 +++
 subed/subed-srt.el    | 1 +
 subed/subed-tsv.el    | 3 ++-
 subed/subed-vtt.el    | 3 ++-
 5 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/subed/subed-ass.el b/subed/subed-ass.el
index 9e26057e57..a662a6c8e2 100644
--- a/subed/subed-ass.el
+++ b/subed/subed-ass.el
@@ -274,7 +274,8 @@ function for MAJOR-MODE."
             (delete-region pos (point))
             (insert " ")
             (let ((subed-enforce-time-boundaries nil))
-              (subed-set-subtitle-time-stop new-end)))
+              (subed-set-subtitle-time-stop new-end))
+            (run-hooks 'subed-subtitle-merged-hook))
         (error "No subtitle to merge into")))))
 
 (cl-defmethod subed--auto-insert (&context (major-mode subed-ass-mode))
diff --git a/subed/subed-config.el b/subed/subed-config.el
index c2f210ffc5..04fbee69ef 100644
--- a/subed/subed-config.el
+++ b/subed/subed-config.el
@@ -290,6 +290,9 @@ Otherwise, adjust the stop time of the current subtitle."
   "Functions to call when a subtitle's start or stop time has changed.
 The functions are called with the subtitle's start time.")
 
+(defvar-local subed-subtitle-merged-hook nil
+  "Functions to call when a subtitle has been merged.")
+
 (declare-function subed-subtitle-msecs-start "subed-common" (&optional id))
 
 (defun subed--run-subtitle-time-adjusted-hook ()
diff --git a/subed/subed-srt.el b/subed/subed-srt.el
index 3c68624193..d0d8aab3dc 100644
--- a/subed/subed-srt.el
+++ b/subed/subed-srt.el
@@ -284,6 +284,7 @@ Use the format-specific function for MAJOR-MODE."
             (insert "\n")
             (let ((subed-enforce-time-boundaries nil))
               (subed-set-subtitle-time-stop new-end))
+            (run-hooks 'subed-subtitle-merged-hook)
             (subed-regenerate-ids-soon))
         (error "No subtitle to merge into")))))
 
diff --git a/subed/subed-tsv.el b/subed/subed-tsv.el
index 1345798cc8..1c1784e755 100644
--- a/subed/subed-tsv.el
+++ b/subed/subed-tsv.el
@@ -431,7 +431,8 @@ Use the format-specific function for MAJOR-MODE."
             (delete-region pos (point))
             (insert " ")
             (let ((subed-enforce-time-boundaries nil))
-              (subed-set-subtitle-time-stop new-end)))
+              (subed-set-subtitle-time-stop new-end))
+            (run-hooks 'subed-subtitle-merged-hook))
         (error "No subtitle to merge into")))))
 
 
diff --git a/subed/subed-vtt.el b/subed/subed-vtt.el
index 3509db6c74..7e9dcf9ae4 100644
--- a/subed/subed-vtt.el
+++ b/subed/subed-vtt.el
@@ -323,7 +323,8 @@ Use the format-specific function for MAJOR-MODE."
             (delete-region pos (point))
             (insert "\n")
             (let ((subed-enforce-time-boundaries nil))
-              (subed-set-subtitle-time-stop new-end)))
+              (subed-set-subtitle-time-stop new-end))
+            (run-hooks 'subed-subtitle-merged-hook))
         (error "No subtitle to merge into")))))
 
 ;;; Maintenance