Mercurial > emacs

changeset 109858:73108272ef0b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
changed looping according to feedback from stefan monnier
author Joakim <joakim@localhost.localdomain>
date Mon, 14 Jun 2010 11:16:39 +0200
parents d7a20b755b64
children 68616bb3ae25
files lisp/image.el
diffstat 1 files changed, 6 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/image.el	Fri May 14 12:07:01 2010 +0200
+++ b/lisp/image.el	Mon Jun 14 11:16:39 2010 +0200
@@ -697,21 +697,17 @@
 ;;;###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)))))