; 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.

diff --git a/lisp/image/image-dired-external.el b/lisp/image/image-dired-external.el
index 4e38d14c8674fb0677b0a64f8cb04c1763d40638..026a84560da9f81022d94d4beed16491db0aeb5e 100644 (file)
--- 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))