changeset 41710:6515e3108ceb

(Man-build-section-alist): Remove last Man-match-substring.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 30 Nov 2001 21:56:46 +0000
parents df0a6a02b580
children efb6bac9ee70
files lisp/man.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/man.el	Fri Nov 30 17:18:27 2001 +0000
+++ b/lisp/man.el	Fri Nov 30 21:56:46 2001 +0000
@@ -867,7 +867,7 @@
   (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 ()