emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/subed 4ef1646 298/389: subed-mpv-find-video: Kill previous


From: ELPA Syncer
Subject: [nongnu] elpa/subed 4ef1646 298/389: subed-mpv-find-video: Kill previous mpv instance if existing
Date: Fri, 3 Dec 2021 11:00:45 -0500 (EST)

branch: elpa/subed
commit 4ef16469caf0fae344b812221a1e53ae595283e5
Author: Random User <rndusr@posteo.de>
Commit: Random User <rndusr@posteo.de>

    subed-mpv-find-video: Kill previous mpv instance if existing
---
 subed/subed-mpv.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/subed/subed-mpv.el b/subed/subed-mpv.el
index 2cf90f1..8eff234 100644
--- a/subed/subed-mpv.el
+++ b/subed/subed-mpv.el
@@ -342,6 +342,8 @@ Video files are expected to have any of the extensions 
listed in
 `subed-video-extensions'."
   (interactive (list (read-file-name "Find video: " nil nil t nil 
#'subed-mpv--is-video-file-p)))
   (let ((filepath (expand-file-name file)))
+    (when (subed-mpv--server-started-p)
+      (subed-mpv-kill))
     (when (apply #'subed-mpv--server-start subed-mpv-arguments)
       (subed-debug "Opening video file: %s" filepath)
       (subed-mpv--client-connect subed-mpv--retry-delays)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]