(Man-heading-regexp): Add 0-9.

(Man-first-heading-regexp): Remove leading space [ \t]* before NAME.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a45abc3e3acdb037bab51b9c27bbe2082fc1aa55..7ca055fb9cfb9e3b3de9b358ba7a82b384782981 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-11-16  Juri Linkov  <juri@jurta.org>
+
+       * man.el (Man-heading-regexp): Add 0-9.
+       (Man-first-heading-regexp): Remove leading space [ \t]* before NAME.
+
 2007-11-15  Juanma Barranquero  <lekktu@gmail.com>
 
        * progmodes/cc-engine.el (c-crosses-statement-barrier-p):

diff --git a/lisp/man.el b/lisp/man.el
index fc84f32727169ae13b40418c4de99264ca942438..4056ddedb292dbab84ded595bd267479658c3d6e 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -264,14 +264,17 @@ the associated section number."
            "(\\(" 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.")