branch: externals/dired-preview
commit a653299672c11a9e565a7ba83a070c23b001677d
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Do not preview already visible file
---
dired-preview.el | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/dired-preview.el b/dired-preview.el
index 3b4c2fddba..80b7a277cd 100644
--- a/dired-preview.el
+++ b/dired-preview.el
@@ -150,10 +150,17 @@ See user option
`dired-preview-ignored-extensions-regexp'."
"Return non-nil if FILE exceeds `dired-preview-max-size'."
(> (file-attribute-size (file-attributes file)) dired-preview-max-size))
+(defun dired-preview--file-displayed-p (file)
+ "Return non-nil if FILE is already displayed in a window."
+ (when-let* ((buffer (get-file-buffer file))
+ (window (get-buffer-window buffer)))
+ (window-live-p window)))
+
(defun dired-preview--preview-p (file)
"Return non-nil if FILE can be previewed."
(and (file-exists-p file)
(not (file-directory-p file))
+ (not (dired-preview--file-displayed-p file))
(not (dired-preview--file-ignored-p file))
(not (dired-preview--file-large-p file))))
