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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/dired-preview 76e2d2a667 3/3: Make stylistic changes in


From: ELPA Syncer
Subject: [elpa] externals/dired-preview 76e2d2a667 3/3: Make stylistic changes involving indentation
Date: Wed, 5 Feb 2025 06:58:03 -0500 (EST)

branch: externals/dired-preview
commit 76e2d2a6675807f41c18c2f000dfaec35ed59100
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Make stylistic changes involving indentation
---
 dired-preview.el | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/dired-preview.el b/dired-preview.el
index 0680efc8dd..1d1a53e836 100644
--- a/dired-preview.el
+++ b/dired-preview.el
@@ -496,8 +496,7 @@ The size of the leading chunk is specified by
   (dired-preview-with-file-setup
    (if-let* ((buffer (or (get-file-buffer file)
                          (find-buffer-visiting file)
-                         (alist-get file dired-preview--large-files-alist
-                                    nil nil #'equal))))
+                         (alist-get file dired-preview--large-files-alist nil 
nil #'equal))))
        buffer ; Buffer is already being visited, we can reuse it
      (with-current-buffer (create-file-buffer file)
        ;; We create a buffer with a partial preview
@@ -510,15 +509,12 @@ The size of the leading chunk is specified by
        (read-only-mode t)
        ;; Because this buffer is not marked as visiting FILE, we need to keep
        ;; track of it ourselves.
-       (setf (alist-get file dired-preview--large-files-alist
-                        nil nil 'equal)
-             (current-buffer))))))
+       (setf (alist-get file dired-preview--large-files-alist nil nil 'equal) 
(current-buffer))))))
 
 (cl-defmethod dired-preview--get-buffer ((file (head ignore)))
   "Get preview placeholder buffer for an ignored FILE."
   (let* ((file (cdr file))
-         (buffer-name (format "%s (no preview)"
-                              (file-name-nondirectory file))))
+         (buffer-name (format "%s (no preview)" (file-name-nondirectory 
file))))
     (or (get-buffer buffer-name)
         (with-current-buffer (get-buffer-create buffer-name)
           (set-visited-file-name file t)



reply via email to

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