From 69fd80388b70ccb8ea04dd3ff046c56672243ffa Mon Sep 17 00:00:00 2001 From: Joakim Verona Date: Mon, 14 Jun 2010 11:16:39 +0200 Subject: [PATCH] changed looping according to feedback from stefan monnier --- lisp/image.el | 16 ++++++---------- 1 file changed, 6 insertions(+), 10 deletions(-) diff --git a/lisp/image.el b/lisp/image.el index 57e980c0afd..b9cb2067245 100644 --- a/lisp/image.el +++ b/lisp/image.el @@ -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))))) -- 2.11.4.GIT