X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/1ac26bf578de6439797d13b82d10658da5d4f3f9..a081a529397af02bd9fc274065fcd982733e1d8b:/lisp/man.el

diff --git a/lisp/man.el b/lisp/man.el
index b51189985a..90c27adbc2 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -254,8 +254,12 @@ the associated section number."
   "Regular expression describing a manpage section within parentheses.")
 
 (defvar Man-page-header-regexp
-  (concat "^[ \t]*\\(" Man-name-regexp
-	  "(\\(" Man-section-regexp "\\))\\).*\\1")
+  (if (and (string-match "-solaris2\\." system-configuration)
+	   (not (string-match "-solaris2\\.[123435]$" system-configuration)))
+      (concat "^[-A-Za-z0-9_].*[ \t]\\(" Man-name-regexp
+	      "(\\(" Man-section-regexp "\\))\\)$")
+    (concat "^[ \t]*\\(" Man-name-regexp
+	    "(\\(" Man-section-regexp "\\))\\).*\\1"))
   "Regular expression describing the heading of a page.")
 
 (defvar Man-heading-regexp "^\\([A-Z][A-Z ]+\\)$"