From: Joakim Verona <joakim@verona.se>
Date: Mon, 14 Jun 2010 09:16:39 +0000 (+0200)
Subject: changed looping according to feedback from stefan monnier
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~45^2~511^2~48
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=69fd80388b70ccb8ea04dd3ff046c56672243ffa;p=emacs.git

changed looping according to feedback from stefan monnier
---

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)))))