From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 11 May 1994 02:27:28 +0000 (+0000)
Subject: (Man-heading-regexp): Fix pattern.
X-Git-Tag: emacs-19.34~8401
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eef4ad20e7b2e54dc063b53fe86d3dbb6aa6c229;p=emacs.git

(Man-heading-regexp): Fix pattern.
(Man-build-section-alist): Use match data, not bol/eol.
---

diff --git a/lisp/man.el b/lisp/man.el
index 3bca3d7e2b7..29d9bf9f1da 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -199,7 +199,7 @@ the manpage buffer.")
 (defvar Man-section-regexp "[0-9][a-zA-Z+]*\\|[LNln]"
   "*Regular expression describing a manpage section within parentheses.")
 
-(defvar Man-heading-regexp "^[ \t]*[A-Z][A-Z \t]+$"
+(defvar Man-heading-regexp "^[ \t]*\\([A-Z][A-Z \t]+\\)$"
   "*Regular expression describing a manpage heading entry.")
 
 (defvar Man-see-also-regexp "SEE ALSO"
@@ -631,7 +631,7 @@ The following key bindings are currently in effect in the buffer:
   (let ((case-fold-search nil))
     (while (re-search-forward Man-heading-regexp (point-max) t)
       (aput 'Man-sections-alist
-	    (buffer-substring (Man-linepos 'bol) (Man-linepos)))
+	    (buffer-substring (match-beginning 1) (match-end 1)))
       (forward-line 1))))
 
 (defun Man-build-references-alist ()