diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2020-12-20 23:21:51 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2020-12-23 18:31:52 -0500 |
| commit | b68d52c81b53ebe993620e1b80a1c923987b089b (patch) | |
| tree | 22773c46867164260961eee2b69b4a792fcae709 /lisp/emacs-lisp/lisp-mnt.el | |
| parent | 3be0dc659fd1a5bc976a545c0bdeda9a3d39e084 (diff) | |
| download | emacs-b68d52c81b53ebe993620e1b80a1c923987b089b.tar.gz | |
* 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`.
Diffstat (limited to 'lisp/emacs-lisp/lisp-mnt.el')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mnt.el | 2 |
1 files changed, 2 insertions, 0 deletions
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 |