From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 7 Aug 2001 08:03:42 +0000 (+0000)
Subject: (image-type-regexps): Use `\`' instead of `^' in
X-Git-Tag: emacs-pretest-21.0.105~270
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=69ebef1d59bfed74c0d1fb68fd9a3a7c73aa03fc;p=emacs.git

(image-type-regexps): Use `\`' instead of `^' in
most regular expressions.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b9557b89d73..8d99f230388 100644
--- 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,Bm(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 381f02e8860..14b9da5cf07 100644
--- 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.")