From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 21 Dec 2020 04:21:51 +0000 (-0500)
Subject: * lisp/emacs-lisp/lisp-mnt.el (lm-section-end): Stop at the right heading
X-Git-Tag: emacs-28.0.90~4594
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b68d52c81b53ebe993620e1b80a1c923987b089b;p=emacs.git

* 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`.
---

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