# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1195176441 0
# Node ID 456d7f1aaa988e6aeaf1288305b4d7f3a583c85d
# Parent  ee0ab94d764c957603b6fa509be2618b9c17f56f
(Man-heading-regexp): Add 0-9.
(Man-first-heading-regexp): Remove leading space [ \t]* before NAME.

diff -r ee0ab94d764c -r 456d7f1aaa98 lisp/man.el
--- a/lisp/man.el	Fri Nov 16 00:19:41 2007 +0000
+++ b/lisp/man.el	Fri Nov 16 01:27:21 2007 +0000
@@ -264,14 +264,17 @@
 	    "(\\(" Man-section-regexp "\\))\\).*\\1"))
   "Regular expression describing the heading of a page.")
 
-(defvar Man-heading-regexp "^\\([A-Z][A-Z /-]+\\)$"
+(defvar Man-heading-regexp "^\\([A-Z][A-Z0-9 /-]+\\)$"
   "Regular expression describing a manpage heading entry.")
 
 (defvar Man-see-also-regexp "SEE ALSO"
   "Regular expression for SEE ALSO heading (or your equivalent).
 This regexp should not start with a `^' character.")
 
-(defvar Man-first-heading-regexp "^[ \t]*NAME$\\|^[ \t]*No manual entry fo.*$"
+;; This used to have leading space [ \t]*, but was removed because it
+;; causes false page splits on an occasional NAME with leading space
+;; inside a manpage.  And `Man-heading-regexp' doesn't have [ \t]* anyway.
+(defvar Man-first-heading-regexp "^NAME$\\|^[ \t]*No manual entry fo.*$"
   "Regular expression describing first heading on a manpage.
 This regular expression should start with a `^' character.")