changed looping according to feedback from stefan monnier

diff --git a/lisp/image.el b/lisp/image.el
index 57e980c0afdaeb06011daf157607292b1d7b25f2..b9cb2067245e325436449439d482e44c82f33b0e 100644 (file)
--- 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)))))