mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

* lisp/files.el (file-auto-mode-skip): New var.

Browse Source 
(set-auto-mode-1): Use it.
This commit is contained in:
Ransom Williams 2012-05-04 23:21:47 -04:00 committed by Stefan Monnier
parent df96ab1e0a
commit 248da2f497
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2012-05-05 Ransom Williams <auvergnerw@gmail.com> (tiny change)
* files.el (file-auto-mode-skip): New var.
(set-auto-mode-1): Use it.
2012-05-05 Stefan Monnier <monnier@iro.umontreal.ca>
* repeat.el: Use lexical-binding.

7
lisp/files.el
View File

@ -2782,6 +2782,11 @@ same, do nothing and return nil."
(funcall mode)
mode)))
(defvar file-auto-mode-skip "^\\(#!\\|'\\\\\"\\)"
"Regexp of lines to skip when looking for file-local settings.
If the first line matches this regular expression, then the -*-...-*- file-
local settings will be consulted on the second line instead of the first.")
(defun set-auto-mode-1 ()
"Find the -*- spec in the buffer.
Call with point at the place to start searching from.
@ -2804,7 +2809,7 @@ have no effect."
;; interpreter invocation. The same holds
;; for '\" in man pages (preprocessor
;; magic for the `man' program).
(and (looking-at "^\\(#!\\|'\\\\\"\\)") 2)) t)
(and (looking-at file-auto-mode-skip) 2)) t)
(progn
(skip-chars-forward " \t")
(setq beg (point))