diff options
| author | Jim Blandy | 1993-07-29 04:02:54 +0000 |
|---|---|---|
| committer | Jim Blandy | 1993-07-29 04:02:54 +0000 |
| commit | c4b74c2089800d85dc171f9c2bc70d66439db656 (patch) | |
| tree | 36714a9f8ffb1af213b01a0035d406e3b199f936 | |
| parent | 95d19fad86ca8a85417f7006267dd5518617e6b1 (diff) | |
| download | emacs-c4b74c2089800d85dc171f9c2bc70d66439db656.tar.gz emacs-c4b74c2089800d85dc171f9c2bc70d66439db656.zip | |
* man.el (Man-find-section): HP/UX man pages have section names
indented by a single space; recognize them.
| -rw-r--r-- | lisp/man.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/man.el b/lisp/man.el index 69a9fd8390f..4eea03d8b5b 100644 --- a/lisp/man.el +++ b/lisp/man.el | |||
| @@ -655,7 +655,7 @@ The following key bindings are currently in effect in the buffer: | |||
| 655 | Returns t if section is found, nil otherwise." | 655 | Returns t if section is found, nil otherwise." |
| 656 | (let ((curpos (point))) | 656 | (let ((curpos (point))) |
| 657 | (goto-char (point-min)) | 657 | (goto-char (point-min)) |
| 658 | (if (re-search-forward (concat "^" section) (point-max) t) | 658 | (if (re-search-forward (concat "^\\s-?" section) (point-max) t) |
| 659 | (progn (beginning-of-line) t) | 659 | (progn (beginning-of-line) t) |
| 660 | (goto-char curpos) | 660 | (goto-char curpos) |
| 661 | nil) | 661 | nil) |