bug#10112: ImageMagick doesn't display some image formats

[Lars Magne Ingebrigtsen]

Juri Linkov <juri@jurta.org> writes:

> -(defconst image-type-header-regexps
> +(defvar image-type-header-regexps
>    `(("\\`/[\t\n\r ]*\\*.*XPM.\\*/" . xpm)
>      ("\\`P[1-6][[:space:]]+\\(?:#.*[[:space:]]+\\)*[0-9]+[[:space:]]+[0-9]+" 
> . pbm)
>      ("\\`GIF8[79]a" . gif)
> @@ -702,7 +704,14 @@ (defun imagemagick-register-types ()
>        (let ((extension (concat "\\." (regexp-opt im-types) "\\'")))
>          (push (cons extension 'image-mode) auto-mode-alist)
>          (push (cons extension 'imagemagick)
> -              image-type-file-name-regexps)))))
> +              image-type-file-name-regexps))
> +      (dolist (header-regexp image-type-header-regexps)
> +        (let ((im-type (cdr header-regexp)))
> +       (when (and (member (symbol-name im-type) im-types)
> +                  (not (memq (intern (upcase (symbol-name im-type)))
> +                             imagemagick-types-inhibit)))
> +         (push (cons (car header-regexp) 'imagemagick)
> +               image-type-header-regexps)))))))
>
>  (provide 'image)

This bug was not installed after Emacs 24.1 was released, but it was
marked as "pending".  Is it still applicable? 

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no