diff options
| author | Karl Heuer <[email protected]> | 1998-11-05 19:19:03 +0000 |
|---|---|---|
| committer | Karl Heuer <[email protected]> | 1998-11-05 19:19:03 +0000 |
| commit | 635ad74809cef0070e421a5ff8e63d21fd812427 (patch) | |
| tree | cd9ba46941422674c09d4232d38cd815e34a8b9b | |
| parent | edad46f664ebbb8df50765a3503f7a985bec45ae (diff) | |
(Man-page-header-regexp): Alternate value for Solaris 2.6.
| -rw-r--r-- | lisp/man.el | 8 |
1 files changed, 6 insertions, 2 deletions
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 ]+\\)$" |