branch: externals/dired-preview
commit b3ef9a2595cd62968d6ffe8d2839d6dac13f5ff2
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Define predicate function to check for window parameter
---
dired-preview.el | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/dired-preview.el b/dired-preview.el
index 29745c19df..01d962c2b9 100644
--- a/dired-preview.el
+++ b/dired-preview.el
@@ -143,12 +143,13 @@ Always return FILE buffer."
buffer))
dired-preview--buffers))
+(defun dired-preview--window-parameter-p (window)
+ "Return non-nil if WINDOW has `dired-preview-window' parameter."
+ (window-parameter window 'dired-preview-window))
+
(defun dired-preview--get-windows ()
"Return windows that show previews."
- (seq-filter
- (lambda (window)
- (window-parameter window 'dired-preview-window))
- (window-list)))
+ (seq-filter #'dired-preview--window-parameter-p (window-list)))
(defun dired-preview--file-ignored-p (file)
"Return non-nil if FILE extension is among the ignored extensions.
@@ -230,7 +231,7 @@ aforementioned user option."
(mapc
(lambda (buffer)
(when (and (not (eq buffer (current-buffer)))
- (window-parameter (get-buffer-window buffer)
'dired-preview-window))
+ (dired-preview--window-parameter-p (get-buffer-window buffer)))
(ignore-errors
(kill-buffer-if-not-modified buffer))))
(dired-preview--get-buffers))
