diff options
| author | Gerd Moellmann | 2001-08-07 08:03:42 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-08-07 08:03:42 +0000 |
| commit | 69ebef1d59bfed74c0d1fb68fd9a3a7c73aa03fc (patch) | |
| tree | 56a8ea9bd1a6720f6c067d24a215a8666004db30 | |
| parent | d1d850d6ab3b6d6d98489e8b31a9ee68d9c5688b (diff) | |
| download | emacs-69ebef1d59bfed74c0d1fb68fd9a3a7c73aa03fc.tar.gz emacs-69ebef1d59bfed74c0d1fb68fd9a3a7c73aa03fc.zip | |
(image-type-regexps): Use `\`' instead of `^' in
most regular expressions.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 @@ | |||
| 1 | 2001-08-07 Gerd Moellmann <gerd@gnu.org> | ||
| 2 | |||
| 3 | * image.el (image-type-regexps): Use `\`' instead of `^' in | ||
| 4 | most regular expressions. | ||
| 5 | |||
| 1 | 2001-08-06 Pavel Jan,Bm(Bk <Pavel@Janik.cz> | 6 | 2001-08-06 Pavel Jan,Bm(Bk <Pavel@Janik.cz> |
| 2 | 7 | ||
| 3 | * play/animate.el: re-insert a reference to re-inserted function. | 8 | * 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 @@ | |||
| 31 | 31 | ||
| 32 | 32 | ||
| 33 | (defconst image-type-regexps | 33 | (defconst image-type-regexps |
| 34 | '(("^/\\*.*XPM.\\*/" . xpm) | 34 | '(("\\`/\\*.*XPM.\\*/" . xpm) |
| 35 | ("^P[1-6]" . pbm) | 35 | ("\\`P[1-6]" . pbm) |
| 36 | ("^GIF8" . gif) | 36 | ("\\`GIF8" . gif) |
| 37 | ("JFIF" . jpeg) | 37 | ("JFIF" . jpeg) |
| 38 | ("^\211PNG\r\n" . png) | 38 | ("\\`\211PNG\r\n" . png) |
| 39 | ("^#define" . xbm) | 39 | ("\\`#define" . xbm) |
| 40 | ("^\\(MM\0\\*\\)\\|\\(II\\*\0\\)" . tiff) | 40 | ("\\`\\(MM\0\\*\\)\\|\\(II\\*\0\\)" . tiff) |
| 41 | ("^%!PS" . postscript)) | 41 | ("\\`%!PS" . postscript)) |
| 42 | "Alist of (REGEXP . IMAGE-TYPE) pairs used to auto-detect image types. | 42 | "Alist of (REGEXP . IMAGE-TYPE) pairs used to auto-detect image types. |
| 43 | When the first bytes of an image file match REGEXP, it is assumed to | 43 | When the first bytes of an image file match REGEXP, it is assumed to |
| 44 | be of image type IMAGE-TYPE.") | 44 | be of image type IMAGE-TYPE.") |