From 69ebef1d59bfed74c0d1fb68fd9a3a7c73aa03fc Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 7 Aug 2001 08:03:42 +0000 Subject: [PATCH] (image-type-regexps): Use `\`' instead of `^' in most regular expressions. --- lisp/ChangeLog | 5 +++++ lisp/image.el | 14 +++++++------- 2 files changed, 12 insertions(+), 7 deletions(-) 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 + + * image.el (image-type-regexps): Use `\`' instead of `^' in + most regular expressions. + 2001-08-06 Pavel Jan,Bm(Bk * 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.") -- 2.39.2