diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-05-16 16:13:12 +0000 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-05-16 16:13:12 +0000 |
commit | c11781dedcfa5fff0d9d811fbafded6fc14c95f5 (patch) | |
tree | 53697db302b5d4eacf0e93b2f59bbd4f023494be | |
parent | 92228a10a24cb72c55b228fb284ba2f6a2aa98c3 (diff) | |
download | emacs-c11781dedcfa5fff0d9d811fbafded6fc14c95f5.tar.gz |
(magic-mode-alist, magic-fallback-mode-alist):
Move the *ml, Postscript, and XmCD entries to the fallback part.
-rw-r--r-- | lisp/ChangeLog | 3 | ||||
-rw-r--r-- | lisp/files.el | 29 |
2 files changed, 17 insertions, 15 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 13e5bf4f9a7..3ad1b5daa0d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2007-05-16 Stefan Monnier <monnier@iro.umontreal.ca> + * files.el (magic-mode-alist, magic-fallback-mode-alist): + Move the *ml, Postscript, and XmCD entries to the fallback part. + * files.el (magic-fallback-mode-alist): Rename from file-start-mode-alist. diff --git a/lisp/files.el b/lisp/files.el index d022baad9a0..322b28f293e 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2120,8 +2120,20 @@ 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) - ;; The < comes before the groups (but the first) to reduce backtracking. + `((image-type-auto-detected-p . image-mode)) + "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 +buffer, or calling MATCH-FUNCTION returns non-nil, `normal-mode' will +call FUNCTION rather than allowing `auto-mode-alist' to decide the buffer's +major mode. + +If FUNCTION is nil, then it is not called. (That is a way of saying +\"allow `auto-mode-alist' to decide for these files.\")") +(put 'magic-mode-alist 'risky-local-variable t) + +(defvar magic-fallback-mode-alist + `(;; 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 "\\(?:[^-]\\|-[^-]\\)") @@ -2140,19 +2152,6 @@ associated with that interpreter in `interpreter-mode-alist'.") . sgml-mode) ("%!PS" . ps-mode) ("# xmcd " . conf-unix-mode)) - "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 -buffer, or calling MATCH-FUNCTION returns non-nil, `normal-mode' will -call FUNCTION rather than allowing `auto-mode-alist' to decide the buffer's -major mode. - -If FUNCTION is nil, then it is not called. (That is a way of saying -\"allow `auto-mode-alist' to decide for these files.\")") -(put 'magic-mode-alist 'risky-local-variable t) - -(defvar magic-fallback-mode-alist - nil "Like `magic-mode-alist' but has lower priority than `auto-mode-alist'. Each element looks like (REGEXP . FUNCTION) or (MATCH-FUNCTION . FUNCTION). After visiting a file, if REGEXP matches the text at the beginning of the |