From 76e67cc85e2325af272423a8da7fba48bec529a1 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Sun, 18 Sep 2022 02:47:47 +0200 Subject: [PATCH] ; image-dired: Fix last commit * lisp/image/image-dired-external.el (image-dired-create-thumb-1): Fix specification for format-spec. * lisp/image/image-dired-external.el (image-dired-thumb-size): Declare. --- lisp/image/image-dired-external.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/image/image-dired-external.el b/lisp/image/image-dired-external.el index 4e38d14c867..026a84560da 100644 --- a/lisp/image/image-dired-external.el +++ b/lisp/image/image-dired-external.el @@ -36,6 +36,7 @@ (declare-function clear-image-cache "image.c" (&optional filter)) (defvar image-dired-dir) +(defvar image-dired-thumb-size) (defvar image-dired-main-image-directory) (defvar image-dired-rotate-original-ask-before-overwrite) (defvar image-dired-thumbnail-storage) @@ -291,11 +292,11 @@ and remove the cached thumbnail files between each trial run.") (file-attributes original-file)))) (thumbnail-nq8-file (replace-regexp-in-string ".png\\'" "-nq8.png" thumbnail-file)) - (spec `((?s ,size) (?w ,size) (?h ,size) - (?m ,modif-time) - (?f ,original-file) - (?q ,thumbnail-nq8-file) - (?t ,thumbnail-file))) + (spec `((?s . ,size) (?w . ,size) (?h . ,size) + (?m . ,modif-time) + (?f . ,original-file) + (?q . ,thumbnail-nq8-file) + (?t . ,thumbnail-file))) (thumbnail-dir (file-name-directory thumbnail-file)) process) (when (not (file-exists-p thumbnail-dir)) -- 2.39.2