From c4b74c2089800d85dc171f9c2bc70d66439db656 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Thu, 29 Jul 1993 04:02:54 +0000 Subject: [PATCH] * man.el (Man-find-section): HP/UX man pages have section names indented by a single space; recognize them. --- lisp/man.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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: 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) -- 2.39.5