Mercurial > emacs

changeset 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 520fcda5846e
children e89df09acf64
files lisp/ChangeLog lisp/files.el
diffstat 2 files changed, 11 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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.
--- 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))