branch: elpa/subed
commit 3af0bb2b259170f16db02c2f6c093c155125c7a0
Author: Random User <rnd...@posteo.de>
Commit: Random User <rnd...@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 ()
