mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

* files.el (set-auto-mode-1): Check second line for -*- if file

Browse Source 
starts with '\" (which is used by man pages to identify needed
troff preprocessors).
This commit is contained in:
Werner LEMBERG 2007-11-16 08:03:45 +00:00
parent 5fd98b2151
commit dddb4597e1
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2007-11-16 Werner Lemberg <wl@gnu.org>
* files.el (set-auto-mode-1): Check second line for -*- if file
starts with '\" (which is used by man pages to identify needed
troff preprocessors).
2007-11-16 Glenn Morris <rgm@gnu.org>
* mail/mail-extr.el (mail-extr-all-top-level-domains): Update domains.

6
lisp/files.el
View File

@ -2428,7 +2428,11 @@ Otherwise, return nil; point may be changed."
;; put them in the first line of
;; such a file without screwing up
;; the interpreter invocation.
(and (looking-at "^#!") 2)) t)
;; The same holds for
;; '\"
;; in man pages (preprocessor
;; magic for the `man' program).
(and (looking-at "^\\(#!\\|'\\\\\"\\)") 2)) t)
(progn
(skip-chars-forward " \t")
(setq beg (point))