Fix image-converter probing

* lisp/image/image-converter.el (image-converter--find-converter):
Stop probing on the first successful probe.

diff --git a/lisp/image/image-converter.el b/lisp/image/image-converter.el
index f251d5ca590e54c9290d0221e805dd7dea3833bf..f046529fd57774dc4c2fb51c4d59a7ad1d84feab 100644 (file)
--- a/lisp/image/image-converter.el
+++ b/lisp/image/image-converter.el
@@ -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."