master 76e67cc85e: ; image-dired: Fix last commit

[Stefan Kangas]

branch: master
commit 76e67cc85e2325af272423a8da7fba48bec529a1
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    ; 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 4e38d14c86..026a84560d 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))