(image-type-regexps): Use `\`' instead of `^' in

most regular expressions.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b9557b89d736fe768cc417b786414dbc3248edab..8d99f2303888d484134789a3cd8afec6ed8d7875 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-08-07  Gerd Moellmann  <gerd@gnu.org>
+
+       * image.el (image-type-regexps): Use `\`' instead of `^' in
+       most regular expressions.
+
 2001-08-06  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
 
        * play/animate.el: re-insert a reference to re-inserted function.

diff --git a/lisp/image.el b/lisp/image.el
index 381f02e8860f41741122486d623df03509c2b609..14b9da5cf0763b294aa6343085b56ddff1c1758d 100644 (file)
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -31,14 +31,14 @@
 
 
 (defconst image-type-regexps
-  '(("^/\\*.*XPM.\\*/" . xpm)
-    ("^P[1-6]" . pbm)
-    ("^GIF8" . gif)
+  '(("\\`/\\*.*XPM.\\*/" . xpm)
+    ("\\`P[1-6]" . pbm)
+    ("\\`GIF8" . gif)
     ("JFIF" . jpeg)
-    ("^\211PNG\r\n" . png)
-    ("^#define" . xbm)
-    ("^\\(MM\0\\*\\)\\|\\(II\\*\0\\)" . tiff)
-    ("^%!PS" . postscript))
+    ("\\`\211PNG\r\n" . png)
+    ("\\`#define" . xbm)
+    ("\\`\\(MM\0\\*\\)\\|\\(II\\*\0\\)" . tiff)
+    ("\\`%!PS" . postscript))
   "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.")