Mercurial > emacs

diff lisp/files.el @ 86147:fb22331f18da

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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).
author Werner LEMBERG <wl@gnu.org>
date Fri, 16 Nov 2007 08:03:45 +0000
parents 77608327b2c8
children 22dc0bc9daf8
line wrap: on
line diff
--- a/lisp/files.el	Fri Nov 16 07:56:43 2007 +0000
+++ b/lisp/files.el	Fri Nov 16 08:03:45 2007 +0000
@@ -2428,7 +2428,11 @@
                             ;; 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))