emacs-elpa-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]