Paul Pogonyshev <pogonyshev at gmx.net>

(image-type-header-regexps): Add svg entry.

lisp/ChangeLog

+2007-08-22  Paul Pogonyshev  <pogonyshev@gmx.net>
+
+	* image-file.el (image-file-name-extensions): Add "svg".
+	* image.el (image-type-header-regexps): Add svg entry.
+
 2007-08-22  Glenn Morris  <rgm@gnu.org>
 
 	* files.el (backup-buffer-copy): Check backup directory is

lisp/image.el

@@ -43,7 +43,8 @@
 static char \\1_bits" . xbm)
     ("\\`\\(?:MM\0\\*\\|II\\*\0\\)" . tiff)
     ("\\`[\t\n\r ]*%!PS" . postscript)
-    ("\\`\xff\xd8" . (image-jpeg-p . jpeg)))
+    ("\\`\xff\xd8" . (image-jpeg-p . jpeg))
+    ("\\`<\\?xml " . svg))
   "Alist of (REGEXP . IMAGE-TYPE) pairs used to auto-detect image types.
 When the first bytes of an image file match REGEXP, it is assumed to
 be of image type IMAGE-TYPE if IMAGE-TYPE is a symbol.  If not a symbol,