diff options
| author | Karl Heuer | 1998-11-05 19:19:03 +0000 |
|---|---|---|
| committer | Karl Heuer | 1998-11-05 19:19:03 +0000 |
| commit | 635ad74809cef0070e421a5ff8e63d21fd812427 (patch) | |
| tree | cd9ba46941422674c09d4232d38cd815e34a8b9b | |
| parent | edad46f664ebbb8df50765a3503f7a985bec45ae (diff) | |
| download | emacs-635ad74809cef0070e421a5ff8e63d21fd812427.tar.gz emacs-635ad74809cef0070e421a5ff8e63d21fd812427.zip | |
(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 b51189985a0..90c27adbc29 100644 --- a/lisp/man.el +++ b/lisp/man.el | |||
| @@ -254,8 +254,12 @@ the associated section number." | |||
| 254 | "Regular expression describing a manpage section within parentheses.") | 254 | "Regular expression describing a manpage section within parentheses.") |
| 255 | 255 | ||
| 256 | (defvar Man-page-header-regexp | 256 | (defvar Man-page-header-regexp |
| 257 | (concat "^[ \t]*\\(" Man-name-regexp | 257 | (if (and (string-match "-solaris2\\." system-configuration) |
| 258 | "(\\(" Man-section-regexp "\\))\\).*\\1") | 258 | (not (string-match "-solaris2\\.[123435]$" system-configuration))) |
| 259 | (concat "^[-A-Za-z0-9_].*[ \t]\\(" Man-name-regexp | ||
| 260 | "(\\(" Man-section-regexp "\\))\\)$") | ||
| 261 | (concat "^[ \t]*\\(" Man-name-regexp | ||
| 262 | "(\\(" Man-section-regexp "\\))\\).*\\1")) | ||
| 259 | "Regular expression describing the heading of a page.") | 263 | "Regular expression describing the heading of a page.") |
| 260 | 264 | ||
| 261 | (defvar Man-heading-regexp "^\\([A-Z][A-Z ]+\\)$" | 265 | (defvar Man-heading-regexp "^\\([A-Z][A-Z ]+\\)$" |