From: Jim Blandy <jimb@redhat.com>
Date: Thu, 29 Jul 1993 04:02:54 +0000 (+0000)
Subject: * man.el (Man-find-section): HP/UX man pages have section names
X-Git-Tag: emacs-19.34~11517
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c4b74c2089800d85dc171f9c2bc70d66439db656;p=emacs.git

* man.el (Man-find-section): HP/UX man pages have section names
indented by a single space; recognize them.
---

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)