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

Fix image-converter probing

Browse source 
* lisp/image/image-converter.el (image-converter--find-converter):
Stop probing on the first successful probe.
This commit is contained in:
Lars Ingebrigtsen 2019-10-29 21:16:40 +01:00
parent 7208c4f8c9
commit 1997e3b80f
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/image/image-converter.el
View file

@ -149,10 +149,12 @@ where created with DATA-P nil (i.e., it has to refer to a file)."
(defun image-converter--find-converter ()
"Find an installed image converter."
(dolist (elem image-converter--converters)
(when-let ((formats (image-converter--probe (car elem))))
(setq image-converter (car elem)
image-converter-regexp (concat "\\." (regexp-opt formats) "\\'")))))
(catch 'done
(dolist (elem image-converter--converters)
(when-let ((formats (image-converter--probe (car elem))))
(setq image-converter (car elem)
image-converter-regexp (concat "\\." (regexp-opt formats) "\\'"))
(throw 'done image-converter)))))
(cl-defmethod image-converter--convert ((type (eql graphicsmagick)) file)
"Convert using GraphicsMagick."