branch: externals/dired-preview
commit 64e3759612c932f59499a455d22fc14d7a7d67bb
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Make stylistic tweaks to dired-preview-open-dwim
---
dired-preview.el | 14 ++++++--------
1 file changed, 6 insertions(+), 8 deletions(-)
diff --git a/dired-preview.el b/dired-preview.el
index 0fab1102b2..118eb24785 100644
--- a/dired-preview.el
+++ b/dired-preview.el
@@ -469,17 +469,15 @@ Otherwise, visit the file in an Emacs buffer.
Also see `dired-preview-find-file'."
(interactive)
- (let (buffer)
+ (let ((buffer nil))
(dired-preview-with-window
(when-let* ((file buffer-file-name))
- (cond
- ((or (string-match-p dired-preview-media-extensions-regexp file)
- (string-match-p dired-preview-ignored-extensions-regexp file)
- (string-match-p dired-preview-image-extensions-regexp file))
- (dired-preview--open-externally file))
- (t
+ (if (or (string-match-p dired-preview-media-extensions-regexp file)
+ (string-match-p dired-preview-ignored-extensions-regexp file)
+ (string-match-p dired-preview-image-extensions-regexp file))
+ (dired-preview--open-externally file)
(dired-preview--close-previews-outside-dired)
- (setq buffer (find-file-noselect file))))))
+ (setq buffer (find-file-noselect file)))))
(when buffer
(pop-to-buffer buffer))))
