branch: externals/dired-preview
commit 04bfb749c7182250821a604bcac0ce8331bd2805
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Move two forms closer to where they are used
---
dired-preview.el | 20 ++++++++++----------
1 file changed, 10 insertions(+), 10 deletions(-)
diff --git a/dired-preview.el b/dired-preview.el
index c9403eee99..195f35194b 100644
--- a/dired-preview.el
+++ b/dired-preview.el
@@ -199,13 +199,6 @@ See user option `dired-preview-ignored-extensions-regexp'."
(not (dired-preview--file-ignored-p file))
(not (dired-preview--file-large-p file))))
-(defun dired-preview--return-preview-buffer (file)
- "Return buffer to preview FILE in.
-Determine the propriety of this action by checking that FILE
-conforms with `dired-preview--preview-p'."
- (when (dired-preview--preview-p file)
- (dired-preview--add-to-previews file)))
-
(defun dired-preview--delete-windows ()
"Delete preview windows."
(mapc
@@ -225,14 +218,18 @@ conforms with `dired-preview--preview-p'."
(dired-preview--get-buffers))
(setq dired-preview--buffers nil))
-(defvar dired-preview--timer nil
- "Most recent timer object to display a preview.")
-
(defun dired-preview--close-previews ()
"Kill preview buffers and delete their windows."
(dired-preview--delete-windows)
(dired-preview--kill-buffers))
+(defun dired-preview--return-preview-buffer (file)
+ "Return buffer to preview FILE in.
+Determine the propriety of this action by checking that FILE
+conforms with `dired-preview--preview-p'."
+ (when (dired-preview--preview-p file)
+ (dired-preview--add-to-previews file)))
+
(defun dired-preview--close-previews-outside-dired ()
"Call `dired-preview--close-previews' if BUFFER is not in Dired mode."
(when (not (eq major-mode 'dired-mode))
@@ -259,6 +256,9 @@ Only do it with the current major mode is Dired."
buffer
dired-preview-display-action-alist)))
+(defvar dired-preview--timer nil
+ "Most recent timer object to display a preview.")
+
(defun dired-preview--cancel-timer ()
"Cancel `dired-preview--timer' if it is a timer object."
(when (timerp dired-preview--timer)
