Mercurial > emacs
comparison lisp/files.el @ 75743:83d10550e0c7
(magic-mode-alist): Call image-mode instead of image-mode-maybe for
autodetected images.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Fri, 09 Feb 2007 16:50:00 +0000 |
| parents | 36d25325f7ef |
| children | 732f9b589f8e |
comparison
equal
deleted
inserted
replaced
| 75742:9e0d422392c4 | 75743:83d10550e0c7 |
|---|---|
| 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-maybe) | 2130 `((image-type-auto-detected-p . image-mode) |
| 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]*<\\)"))) |