branch: externals/dired-preview
commit b7fa058aa948b896ab110ab116bcdcdaf2fa720b
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Make dired-preview-trigger-commands a user option
---
README.org | 6 ++++++
dired-preview.el | 32 ++++++++++++++++++--------------
2 files changed, 24 insertions(+), 14 deletions(-)
diff --git a/README.org b/README.org
index f0efcb70fe..1c672143ed 100644
--- a/README.org
+++ b/README.org
@@ -94,6 +94,12 @@ When entering a directory, a preview is triggered outright
if the user
option ~dired-preview-trigger-on-start~ is set to a non-nil value (the
default). [ Part of {{{development-version}}}. ]
+#+vindex: dired-preview-trigger-commands
+Other than entering a directory, a preview happens after one of the
+commands in ~dired-preview-trigger-commands~ is invoked. [ The
+~dired-preview-trigger-commands~ is now a user option as part of
+{{{development-version}}}. ]
+
#+vindex: dired-preview-ignored-extensions-regexp
#+vindex: dired-preview-ignored-show-ignored-placeholders
Files matching the ~dired-preview-ignored-extensions-regexp~ are not
diff --git a/dired-preview.el b/dired-preview.el
index eff7b64635..fb72f74ab6 100644
--- a/dired-preview.el
+++ b/dired-preview.el
@@ -203,6 +203,24 @@ If nil, then the preview happens only after one of the
commands in
:package-version '(dired-preview . "0.6.0")
:group 'dired-preview)
+(defcustom dired-preview-trigger-commands
+ '( dired-next-line
+ dired-previous-line
+ dired-flag-file-deletion
+ dired-mark
+ dired-unmark
+ dired-unmark-backward
+ dired-del-marker
+ dired-goto-file
+ dired-find-file
+ scroll-up-command
+ scroll-down-command)
+ "List of commands that trigger a preview when `dired-preview-mode' is
enabled.
+Also see `dired-preview-trigger-on-start'."
+ :type '(repeat function)
+ :package-version '(dired-preview . "0.6.0")
+ :group 'dired-preview)
+
(defvar dired-preview--buffers nil
"List with buffers of previewed files.")
@@ -652,20 +670,6 @@ aforementioned user option."
(dedicated . t)
(preserve-size . (t . t))))
-(defvar dired-preview-trigger-commands
- '( dired-next-line
- dired-previous-line
- dired-flag-file-deletion
- dired-mark
- dired-unmark
- dired-unmark-backward
- dired-del-marker
- dired-goto-file
- dired-find-file
- scroll-up-command
- scroll-down-command)
- "List of Dired commands that trigger a preview.")
-
(defvar dired-preview--timer nil
"Most recent timer object to display a preview.")
