Mercurial > emacs

comparison lisp/files.el @ 76636:88155f310fdf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(magic-mode-alist): Require literal "%!PS" string for magic postscript file detection.
author David Kastrup <dak@gnu.org>
date Tue, 20 Mar 2007 18:36:15 +0000
parents 50806525e635
children db4fef527760 738ce3540ffb c0409ee15cee
comparison
equal deleted inserted replaced
76635:5e37a1934d22 76636:88155f310fdf
2135 ("<\\?xml " . xml-mode) 2135 ("<\\?xml " . xml-mode)
2136 (,(let* ((incomment-re "\\(?:[^-]\\|-[^-]\\)") 2136 (,(let* ((incomment-re "\\(?:[^-]\\|-[^-]\\)")
2137 (comment-re (concat "\\(?:!--" incomment-re "*-->[ \t\n]*<\\)"))) 2137 (comment-re (concat "\\(?:!--" incomment-re "*-->[ \t\n]*<\\)")))
2138 (concat "[ \t\n]*<" comment-re "*!DOCTYPE ")) 2138 (concat "[ \t\n]*<" comment-re "*!DOCTYPE "))
2139 . sgml-mode) 2139 . sgml-mode)
2140 ("%![^V]" . ps-mode) 2140 ("%!PS" . ps-mode)
2141 ("# xmcd " . conf-unix-mode)) 2141 ("# xmcd " . conf-unix-mode))
2142 "Alist of buffer beginnings vs. corresponding major mode functions. 2142 "Alist of buffer beginnings vs. corresponding major mode functions.
2143 Each element looks like (REGEXP . FUNCTION) or (MATCH-FUNCTION . FUNCTION). 2143 Each element looks like (REGEXP . FUNCTION) or (MATCH-FUNCTION . FUNCTION).
2144 After visiting a file, if REGEXP matches the text at the beginning of the 2144 After visiting a file, if REGEXP matches the text at the beginning of the
2145 buffer, or calling MATCH-FUNCTION returns non-nil, `normal-mode' will 2145 buffer, or calling MATCH-FUNCTION returns non-nil, `normal-mode' will