[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/dired-preview fa7df887fe 1/3: Use the same recentf symb
From: |
ELPA Syncer |
Subject: |
[elpa] externals/dired-preview fa7df887fe 1/3: Use the same recentf symbol everywhere |
Date: |
Mon, 6 May 2024 03:58:14 -0400 (EDT) |
branch: externals/dired-preview
commit fa7df887fe518dd9d2f7a1754a82c5170fadcfa5
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>
Use the same recentf symbol everywhere
We do not want to accumulate previews in the recent files.
---
dired-preview.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/dired-preview.el b/dired-preview.el
index dfffc91cb8..563ab14181 100644
--- a/dired-preview.el
+++ b/dired-preview.el
@@ -285,7 +285,7 @@ FILE."
"Get preview buffer for large FILE.
The size of the leading chunk is specified by
`dired-preview-chunk-size'."
- (cl-letf (((symbol-function 'recentf-track-closed-file) #'ignore))
+ (cl-letf (((symbol-function 'recentf-track-opened-file) #'ignore))
(let ((file (cdr file))
(inhibit-message t)
(enable-dir-local-variables nil)
@@ -318,7 +318,7 @@ The size of the leading chunk is specified by
(cl-defmethod dired-preview--get-buffer ((file (head directory)))
"Get preview buffer for directory FILE type."
- (cl-letf (((symbol-function 'recentf-track-closed-file) #'ignore))
+ (cl-letf (((symbol-function 'recentf-track-opened-file) #'ignore))
(let ((file (cdr file))
(inhibit-message t)
(enable-dir-local-variables nil)
@@ -332,7 +332,7 @@ The size of the leading chunk is specified by
;; it.
(cl-defmethod dired-preview--get-buffer ((file (head image)))
"Get preview buffer for image FILE type."
- (cl-letf (((symbol-function 'recentf-track-closed-file) #'ignore))
+ (cl-letf (((symbol-function 'recentf-track-opened-file) #'ignore))
(let ((file (cdr file))
(inhibit-message t)
(enable-dir-local-variables nil)
@@ -344,7 +344,7 @@ The size of the leading chunk is specified by
(defun dired-preview--add-to-previews (file)
"Add FILE to `dired-preview--buffers', if not already in a buffer.
Always return FILE buffer."
- (cl-letf (((symbol-function 'recentf-track-closed-file) #'ignore))
+ (cl-letf (((symbol-function 'recentf-track-opened-file) #'ignore))
(let ((buffer (find-buffer-visiting file)))
(if (buffer-live-p buffer)
buffer
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/dired-preview fa7df887fe 1/3: Use the same recentf symbol everywhere,
ELPA Syncer <=