Mercurial > emacs
diff lisp/man.el @ 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 | dfabe5b99500 |
children | 09cb5e07f8a3 |
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)