From: Stefan Kangas <stefan@marxist.se>
Date: Wed, 27 Oct 2021 05:51:35 +0000 (+0200)
Subject: image-dired: Set line-spacing to match horizontal space
X-Git-Tag: emacs-29.0.90~3671^2~392
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=484468a1af1d6a3e4bed16002e08ddbf4457dd01;p=emacs.git

image-dired: Set line-spacing to match horizontal space

* lisp/image-dired.el (image-dired-thumbnail-mode): Set value of
'line-spacing' to approximately match horizontal space.  This makes
the thumbnail view look better.
---

diff --git a/lisp/image-dired.el b/lisp/image-dired.el
index d089d4a26d9..f6a263749f2 100644
--- a/lisp/image-dired.el
+++ b/lisp/image-dired.el
@@ -1767,7 +1767,9 @@ You probably want to use this together with
 Use `image-dired-minor-mode' to get a nice setup."
   (buffer-disable-undo)
   (add-hook 'file-name-at-point-functions 'image-dired-file-name-at-point nil t)
-  (setq-local bookmark-make-record-function #'image-dired-bookmark-make-record))
+  (setq-local bookmark-make-record-function #'image-dired-bookmark-make-record)
+  ;; Use approximately as much vertical spacing as horizontal.
+  (setq-local line-spacing (frame-char-width)))
 
 (define-derived-mode image-dired-display-image-mode
   special-mode "image-dired-image-display"