Paul Pogonyshev <pogonyshev at gmx.net>

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

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2e9bc28b7a7..93822965fa7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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
diff --git a/lisp/image.el b/lisp/image.el
index 6763cf151fe..d63c69cafed 100644
--- a/lisp/image.el
+++ b/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,