imagemagick patch5 + minor mods

1 files changed, 25 insertions, 0 deletions

diff --git a/lisp/image.el b/lisp/image.el
index 67c1ad946b1..963093c6149 100644
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -690,6 +690,31 @@ shall be displayed."
            (cons images (+ (aref anim 1) (* (aref anim 2) 256))))))))
 
 
+(defconst imagemagick-types-inhibit
+  '(C HTML HTM TXT)
+  "Types the imagemagic loader should not try to handle.")
+
+;;;###autoload
+(defun imagemagic-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)))))
+        (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))))))
+
+
+
 (provide 'image)
 
 ;; arch-tag: 8e76a07b-eb48-4f3e-a7a0-1a7ba9f096b3