(image-type-regexps): Make sure that the TIFF

pattern is only matched at the beginning of a string.
From Markus Rost <rost@math.ohio-state.edu>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 984ef8384c7edbfa89aadba58e0565741fcc660b..40eef086a4e2ff33bcdddfd9e6ceaf6c5490ca68 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2001-08-21  Gerd Moellmann  <gerd@gnu.org>
 
+       * image.el (image-type-regexps): Make sure that the TIFF
+       pattern is only matched at the beginning of a string.
+       From Markus Rost <rost@math.ohio-state.edu>.
+
        * international/swedish.el: Pre-Mule file removed.  From: Jonas
        Oberg <jonas@gnu.org>.
 

diff --git a/lisp/image.el b/lisp/image.el
index f7ab77379dc6b0e9a29ddf1dbd1c7d40e36662b5..e4c2387d78e3a86b0e89fd74d1ae211bebe16b55 100644 (file)
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -36,7 +36,7 @@
     ("\\`GIF8" . gif)
     ("\\`\211PNG\r\n" . png)
     ("\\`[\t\n\r ]*#define" . xbm)
-    ("\\`\\(MM\0\\*\\)\\|\\(II\\*\0\\)" . tiff)
+    ("\\`\\(MM\0\\*\\|II\\*\0\\)" . tiff)
     ("\\`[\t\n\r ]*%!PS" . postscript)
     ("\\`\xff\xd8" . (image-jpeg-p . jpeg)))
   "Alist of (REGEXP . IMAGE-TYPE) pairs used to auto-detect image types.