Mercurial > emacs
changeset 4334:b39cd3621215
* man.el (Man-find-section): HP/UX man pages have section names
indented by a single space; recognize them.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Thu, 29 Jul 1993 04:02:54 +0000 |
| parents | c356a81e1a46 |
| children | 907bf380e92e |
| files | lisp/man.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/man.el Thu Jul 29 04:01:09 1993 +0000 +++ b/lisp/man.el Thu Jul 29 04:02:54 1993 +0000 @@ -655,7 +655,7 @@ Returns t if section is found, nil otherwise." (let ((curpos (point))) (goto-char (point-min)) - (if (re-search-forward (concat "^" section) (point-max) t) + (if (re-search-forward (concat "^\\s-?" section) (point-max) t) (progn (beginning-of-line) t) (goto-char curpos) nil)