mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-25 09:20:59 -08:00
Code Issues Projects Releases Wiki Activity

changed looping according to feedback from stefan monnier

Browse source
This commit is contained in:
Joakim Verona 2010-06-14 11:16:39 +02:00
parent 431dab046c
commit 69fd80388b
1 changed files with 6 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/image.el
View file

@ -697,21 +697,17 @@ shall be displayed."
;;;###autoload
(defun imagemagick-register-types ()
"Register file types that imagemagick is able to handle."
(let ((im-types (imagemagick-types))
(im-inhibit imagemagick-types-inhibit))
(while im-inhibit
(setq im-types (remove (car im-inhibit) im-types))
(setq im-inhibit (cdr im-inhibit)))
(while im-types
(let
((extension (downcase (symbol-name (car im-types)))))
(let ((im-types (imagemagick-types)))
(dolist im-inhibit
(setq im-types (remove im-inhibit im-types)))
(dolist im-type im-types
(let ((extension (downcase (symbol-name im-type))))
(push
(cons (concat "\\." extension "\\'") 'image-mode)
auto-mode-alist)
(push
(cons (concat "\\." extension "\\'") 'imagemagick)
image-type-file-name-regexps)
(setq im-types (cdr im-types))))))
image-type-file-name-regexps)))))