From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 30 Nov 2001 21:56:46 +0000 (+0000)
Subject: (Man-build-section-alist): Remove last Man-match-substring.
X-Git-Tag: ttn-vms-21-2-B4~18003
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2ba257e11c22dc5447809dad5daba880e43b3096;p=emacs.git

(Man-build-section-alist): Remove last Man-match-substring.
---

diff --git a/lisp/man.el b/lisp/man.el
index c9d175466f7..b428e4693b3 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -867,7 +867,7 @@ The following key bindings are currently in effect in the buffer:
   (goto-char (point-min))
   (let ((case-fold-search nil))
     (while (re-search-forward Man-heading-regexp (point-max) t)
-      (aput 'Man-sections-alist (Man-match-substring 1))
+      (aput 'Man-sections-alist (match-string 1))
       (forward-line 1))))
 
 (defsubst Man-build-references-alist ()