[nongnu] elpa/subed f28ad22 379/389: Make subed-mpv-jump-to-current-subtitle interactive

[ELPA Syncer]

branch: elpa/subed
commit f28ad2262b31f316984f5a68c3f56ac63979a556
Author: Sacha Chua <sacha@sachachua.com>
Commit: Random User <rndusr@posteo.de>

    Make subed-mpv-jump-to-current-subtitle interactive
    
    This is useful for manually looping over a subtitle.
    
    * subed/subed-mpv.el (subed-mpv-jump-to-current-subtitle): Add
      interactive marker.
    * subed/subed.el (subed-mode-map): Bind M-j to 
subed-mpv-jump-to-current-subtitle.
---
 subed/subed-mpv.el | 1 +
 subed/subed.el     | 1 +
 2 files changed, 2 insertions(+)

diff --git a/subed/subed-mpv.el b/subed/subed-mpv.el
index bd36a7f..3fb8ef9 100644
--- a/subed/subed-mpv.el
+++ b/subed/subed-mpv.el
@@ -315,6 +315,7 @@ See \"List of events\" in mpv(1)."
 
 (defun subed-mpv-jump-to-current-subtitle ()
   "Move playback position to start of currently focused subtitle if possible."
+  (interactive)
   (let ((cur-sub-start (subed-subtitle-msecs-start)))
     (when cur-sub-start
       (subed-debug "Seeking player to focused subtitle: %S" cur-sub-start)
diff --git a/subed/subed.el b/subed/subed.el
index eb71b79..9230d79 100644
--- a/subed/subed.el
+++ b/subed/subed.el
@@ -70,6 +70,7 @@
     (define-key subed-mode-map (kbd "M-.") #'subed-split-subtitle)
     (define-key subed-mode-map (kbd "M-s") #'subed-sort)
     (define-key subed-mode-map (kbd "M-SPC") #'subed-mpv-toggle-pause)
+    (define-key subed-mode-map (kbd "M-j") 
#'subed-mpv-jump-to-current-subtitle)
     (define-key subed-mode-map (kbd "C-c C-d") #'subed-toggle-debugging)
     (define-key subed-mode-map (kbd "C-c C-v") #'subed-mpv-find-video)
     (define-key subed-mode-map (kbd "C-c C-u") #'subed-mpv-play-video-from-url)