From b68d52c81b53ebe993620e1b80a1c923987b089b Mon Sep 17 00:00:00 2001
From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 20 Dec 2020 23:21:51 -0500
Subject: [PATCH] * lisp/emacs-lisp/lisp-mnt.el (lm-section-end): Stop at the
 right heading

`lisp-outline-level` assumes the match-data is that set by
`outline-regexp`.
---
 lisp/emacs-lisp/lisp-mnt.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el
index 0d57bc16a3a..f1901563429 100644
--- a/lisp/emacs-lisp/lisp-mnt.el
+++ b/lisp/emacs-lisp/lisp-mnt.el
@@ -208,6 +208,7 @@ a section."
     (when start
       (save-excursion
         (goto-char start)
+        (looking-at outline-regexp)
         (let ((level (lisp-outline-level))
               (case-fold-search t)
               next-section-found)
@@ -218,6 +219,7 @@ a section."
                              nil t))
                       (> (save-excursion
                            (beginning-of-line)
+                           (looking-at outline-regexp)
                            (lisp-outline-level))
                          level)))
 	  (min (if next-section-found
-- 
2.39.5