branch: elpa/helm
commit 5e2a40262f5c8a58d78cf1161f755f6f7b3b1478
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Fix thumnails display with image-dired-thumbnail-storage standard
---
helm-files.el | 11 ++++++++---
1 file changed, 8 insertions(+), 3 deletions(-)
diff --git a/helm-files.el b/helm-files.el
index 3768463782..4e64cba58f 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -4860,9 +4860,14 @@ Special commands:
(cl-pushnew helm-ff-default-directory
helm-ff--thumbnailed-directories :test 'equal)
(cl-loop for (disp . img) in candidates
- for type = (helm-acase (file-name-extension img)
- ("png" 'png)
- (("jpg" "jpeg") 'jpeg))
+ for imgtype = (helm-acase (file-name-extension img)
+ ("png" 'png)
+ (("jpg" "jpeg") 'jpeg))
+ for type = (if (and imgtype
+ (memq image-dired-thumbnail-storage
+ '(standard standard-large)))
+ 'png
+ imgtype)
if type collect
(let ((thumbnail (plist-get
(cdr
(helm-ff--image-dired-get-thumbnail-image img))
