[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#53520: [PATCH] tabulated-list gradually truncate image
From: |
Thuna |
Subject: |
bug#53520: [PATCH] tabulated-list gradually truncate image |
Date: |
Tue, 25 Jan 2022 12:08:18 +0300 |
Previously images were displayed as is which would potentially cause
misalignment if the column width were less than the image width. Image
is now cropped width-wise to fit the column width. This patch, however,
does not affect the height of the image.
diff --git a/lisp/emacs-lisp/tabulated-list.el
b/lisp/emacs-lisp/tabulated-list.el
index 2ace7ebb35..b964dd56e9 100644
--- a/lisp/emacs-lisp/tabulated-list.el
+++ b/lisp/emacs-lisp/tabulated-list.el
@@ -577,7 +577,11 @@ tabulated-list-print-col
(propertize label 'help-echo help-echo))))
((eq (car col-desc) 'image)
(insert (propertize " "
- 'display col-desc
+ 'display `(,col-desc
+ (slice 0.0 0.0
+ ,(* (frame-char-width)
+ available-space)
+ 1.0))
'help-echo help-echo)))
((apply 'insert-text-button label (cdr col-desc))))
(let ((next-x (+ x pad-right width)))
- bug#53520: [PATCH] tabulated-list gradually truncate image,
Thuna <=