master b68d52c 1/2: * lisp/emacs-lisp/lisp-mnt.el (lm-section-end): Stop at the right heading

[Stefan Monnier]

branch: master
commit b68d52c81b53ebe993620e1b80a1c923987b089b
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * 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 0d57bc1..f190156 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