# HG changeset patch
# User Werner LEMBERG <wl@gnu.org>
# Date 1195200225 0
# Node ID fb22331f18da72a19dbb7d977a0413239fa451ee
# Parent  520fcda5846ea8e69f77b8ba41f6174f014fc2dc
* 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).

diff -r 520fcda5846e -r fb22331f18da lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Nov 16 07:56:43 2007 +0000
+++ b/lisp/ChangeLog	Fri Nov 16 08:03:45 2007 +0000
@@ -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.
diff -r 520fcda5846e -r fb22331f18da lisp/files.el
--- 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))