Commit 43f5c7ae authored by Glenn Morris's avatar Glenn Morris

Fix imagemagick-filter-types for imagemagick-types-enable = t.

parent 60b5f187
......@@ -698,18 +698,19 @@ that match `imagemagick-types-enable' and do not match
(when (fboundp 'imagemagick-types)
(cond ((null imagemagick-types-enable) nil)
((eq imagemagick-types-inhibit t) nil)
((eq imagemagick-types-enable t) (imagemagick-types))
(t
(delq nil
(mapcar
(lambda (type)
(unless (memq type imagemagick-types-inhibit)
(if (eq imagemagick-types-enable t) type
(catch 'found
(dolist (enable imagemagick-types-enable nil)
(if (cond ((symbolp enable) (eq enable type))
((stringp enable)
(string-match enable (symbol-name type))))
(throw 'found type))))))
(string-match enable
(symbol-name type))))
(throw 'found type)))))))
(imagemagick-types)))))))
(defvar imagemagick--file-regexp nil
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment