From 2ba257e11c22dc5447809dad5daba880e43b3096 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 30 Nov 2001 21:56:46 +0000 Subject: [PATCH] (Man-build-section-alist): Remove last Man-match-substring. --- lisp/man.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 () -- 2.39.2