diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2007-06-04 20:41:15 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2007-06-04 20:41:15 +0000 |
| commit | 407876dad2cfe64b3d93bbc64f2e0e60dac4861e (patch) | |
| tree | dfc38d12876c2be1c6e45d94957eaac2198c5ca7 /lisp/files.el | |
| parent | ada9718d0fac370e92650e914f43f099f07a0753 (diff) | |
| download | emacs-407876dad2cfe64b3d93bbc64f2e0e60dac4861e.tar.gz | |
(magic-mode-alist): Remove image-type-auto-detected-p.
(magic-fallback-mode-alist): Add image-type-auto-detected-p.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/files.el b/lisp/files.el index 2dbc0c2791a..5693e40ced5 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2119,8 +2119,7 @@ is assumed to be interpreted by the interpreter matched by the second group of the regular expression. The mode is then determined as the mode associated with that interpreter in `interpreter-mode-alist'.") -(defvar magic-mode-alist - `((image-type-auto-detected-p . image-mode)) +(defvar magic-mode-alist nil "Alist of buffer beginnings vs. corresponding major mode functions. Each element looks like (REGEXP . FUNCTION) or (MATCH-FUNCTION . FUNCTION). After visiting a file, if REGEXP matches the text at the beginning of the @@ -2133,7 +2132,8 @@ If FUNCTION is nil, then it is not called. (That is a way of saying (put 'magic-mode-alist 'risky-local-variable t) (defvar magic-fallback-mode-alist - `(;; The < comes before the groups (but the first) to reduce backtracking. + `((image-type-auto-detected-p . image-mode) + ;; The < comes before the groups (but the first) to reduce backtracking. ;; TODO: UTF-16 <?xml may be preceded by a BOM 0xff 0xfe or 0xfe 0xff. ;; We use [ \t\r\n] instead of `\\s ' to make regex overflow less likely. (,(let* ((incomment-re "\\(?:[^-]\\|-[^-]\\)") |