[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/dired-preview f744b8213d 1/5: Remove dired-preview-trig
|
From: |
ELPA Syncer |
|
Subject: |
[elpa] externals/dired-preview f744b8213d 1/5: Remove dired-preview-trigger-commands |
|
Date: |
Tue, 26 Sep 2023 12:57:58 -0400 (EDT) |
branch: externals/dired-preview
commit f744b8213dcdf7d5bac80c72cc86927317635d96
Author: Nofint <asd1693917780@163.com>
Commit: Nofint <asd1693917780@163.com>
Remove dired-preview-trigger-commands
---
dired-preview.el | 7 +------
1 file changed, 1 insertion(+), 6 deletions(-)
diff --git a/dired-preview.el b/dired-preview.el
index 015894c649..56d08e45b3 100644
--- a/dired-preview.el
+++ b/dired-preview.el
@@ -247,10 +247,6 @@ aforementioned user option."
(side . ,(plist-get properties :side))
(,(plist-get properties :dimension) . ,(plist-get properties :size)))))
-(defvar dired-preview-trigger-commands
- '(dired-next-line dired-previous-line dired-mark dired-goto-file
dired-find-file dired dired-jump)
- "List of Dired commands that trigger a preview.")
-
(defvar dired-preview--timer nil
"Most recent timer object to display a preview.")
@@ -302,8 +298,7 @@ the preview with `dired-preview-delay' of idleness."
(add-hook 'window-state-change-hook
#'dired-preview--close-previews-outside-dired)
(dired-preview--cancel-timer)
(if-let ((file (dired-file-name-at-point))
- ((dired-preview--preview-p file))
- ((memq this-command dired-preview-trigger-commands)))
+ ((dired-preview--preview-p file)))
(if no-delay
(dired-preview-display-file file)
(setq dired-preview--timer