Mercurial > emacs
comparison lisp/files.el @ 75569:36d25325f7ef
(magic-mode-alist): Use image-mode-maybe rather than
image-mode.
| author | Jason Rumney <jasonr@gnu.org> |
|---|---|
| date | Wed, 31 Jan 2007 12:37:29 +0000 |
| parents | 4144cd078a1d |
| children | 83d10550e0c7 |
comparison
equal
deleted
inserted
replaced
| 75568:146ba0f8974c | 75569:36d25325f7ef |
|---|---|
| 2125 is assumed to be interpreted by the interpreter matched by the second group | 2125 is assumed to be interpreted by the interpreter matched by the second group |
| 2126 of the regular expression. The mode is then determined as the mode | 2126 of the regular expression. The mode is then determined as the mode |
| 2127 associated with that interpreter in `interpreter-mode-alist'.") | 2127 associated with that interpreter in `interpreter-mode-alist'.") |
| 2128 | 2128 |
| 2129 (defvar magic-mode-alist | 2129 (defvar magic-mode-alist |
| 2130 `((image-type-auto-detected-p . image-mode) | 2130 `((image-type-auto-detected-p . image-mode-maybe) |
| 2131 ;; The < comes before the groups (but the first) to reduce backtracking. | 2131 ;; The < comes before the groups (but the first) to reduce backtracking. |
| 2132 ;; TODO: UTF-16 <?xml may be preceded by a BOM 0xff 0xfe or 0xfe 0xff. | 2132 ;; TODO: UTF-16 <?xml may be preceded by a BOM 0xff 0xfe or 0xfe 0xff. |
| 2133 ;; We use [ \t\n] instead of `\\s ' to make regex overflow less likely. | 2133 ;; We use [ \t\n] instead of `\\s ' to make regex overflow less likely. |
| 2134 (,(let* ((incomment-re "\\(?:[^-]\\|-[^-]\\)") | 2134 (,(let* ((incomment-re "\\(?:[^-]\\|-[^-]\\)") |
| 2135 (comment-re (concat "\\(?:!--" incomment-re "*-->[ \t\n]*<\\)"))) | 2135 (comment-re (concat "\\(?:!--" incomment-re "*-->[ \t\n]*<\\)"))) |