[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/subed 3af0bb2 169/389: subed-guess-video-file: Don't croak
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/subed 3af0bb2 169/389: subed-guess-video-file: Don't croak if buffer-file-name returns nil |
Date: |
Fri, 3 Dec 2021 11:00:19 -0500 (EST) |
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 ()
- [nongnu] elpa/subed f3fe9d8 148/389: Make increase/decrease-start/stop-time not srt specific, (continued)
- [nongnu] elpa/subed f3fe9d8 148/389: Make increase/decrease-start/stop-time not srt specific, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 53bad4a 149/389: Explain what moving does in general in comment, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 800d4b3 150/389: Return new start/stop time when adjusting, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 6122de0 151/389: Rename adjust-subtitle-start/stop-relative to adjust-subtitle-start/stop, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 06a4681 153/389: Adjusting functions return milliseconds moved, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed c7d3fcb 156/389: Add autoloading, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 20c70e8 160/389: Make more functions public, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed af2004c 172/389: subed-mode-enable: Add autoload cookie, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed a5d750d 162/389: Inser empty line after section header comment, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed e22f4b7 157/389: Make subed-srt-* functions private, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 3af0bb2 169/389: subed-guess-video-file: Don't croak if buffer-file-name returns nil,
ELPA Syncer <=
- [nongnu] elpa/subed e195756 179/389: Rewrite adjusting tests, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 3e818aa 173/389: Remove useless (progn ...) in (if ...), ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 4116ea7 171/389: Add Makefile, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 37bd5f7 168/389: Don't provide sub-id to subtitle-time-adjusted-hook functions, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 3289584 170/389: Pacify checkdoc, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 645efb2 175/389: Don't test for undefined return value when moving subtitles, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 908b1b0 176/389: Simplify tests for moving in active region, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed c1c707e 182/389: Rename subed-adjust-to-player-start/stop-timestamp, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed f6b13f6 197/389: Adjust error message when autoloading video fails, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed e9f3e4e 215/389: Move tests for killing SRT subtitles to test-subed-srt.el, ELPA Syncer, 2021/12/03