procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; image-dired: Fix last commit

Browse source 
* 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.
This commit is contained in:
Stefan Kangas 2022-09-18 02:47:47 +02:00
parent 24513b3786
commit 76e67cc85e
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/image/image-dired-external.el
View file

@ -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))