[nongnu] elpa/subed 3af0bb2 169/389: subed-guess-video-file: Don't croak if buffer-file-name returns nil

[ELPA Syncer]

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

    subed-guess-video-file: Don't croak if buffer-file-name returns nil
---
 subed/subed.el | 23 ++++++++++++++---------
 1 file changed, 14 insertions(+), 9 deletions(-)

diff --git a/subed/subed.el b/subed/subed.el
index 39aa7ae..b46c509 100644
--- a/subed/subed.el
+++ b/subed/subed.el
@@ -578,15 +578,20 @@ buffer."
 
 
 (defun subed-guess-video-file ()
-  "Return path to video if replacing the buffer file name's
-extension with members of `subed-video-extensions' yields an
-existing file."
-  (catch 'found-videofile
-    (let ((file-base (file-name-sans-extension (buffer-file-name))))
-      (dolist (extension subed-video-extensions)
-        (let ((file-video (format "%s.%s" file-base extension)))
-          (when (file-exists-p file-video)
-            (throw 'found-videofile file-video)))))))
+  "Find video file with same base name as the opened file in the buffer.
+
+The file extension of function `buffer-file-name' is replaced
+with each item in `subed-video-extensions' and the first existing
+file is returned.
+
+Return nil if function `buffer-file-name' returns nil."
+  (when (buffer-file-name)
+    (catch 'found-videofile
+      (let ((file-base (file-name-sans-extension (buffer-file-name))))
+        (dolist (extension subed-video-extensions)
+          (let ((file-video (format "%s.%s" file-base extension)))
+            (when (file-exists-p file-video)
+              (throw 'found-videofile file-video))))))))
 
 
 (defun subed-mode-enable ()