Paul Pogonyshev <pogonyshev at gmx.net>

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2e9bc28b7a7e23ce03c4c0e96d7932ef70172f5f..93822965fa73bc91cd699c5f8f45e27b67d4b320 100644 (file)
--- 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 6763cf151feea4f55a8661479edbdac2e621058e..d63c69cafed94c9ab4e152d2dc4c538211aae521 100644 (file)
--- 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,