[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals-release/org 0a842cc94b 3/4: org-forward-heading-same-le
From: |
ELPA Syncer |
Subject: |
[elpa] externals-release/org 0a842cc94b 3/4: org-forward-heading-same-level: Do not rely on match-data from `org-back-to-heading' |
Date: |
Sat, 24 Jun 2023 09:58:31 -0400 (EDT) |
branch: externals-release/org
commit 0a842cc94bf9588c03a7944a2e75ea017731ca24
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>
org-forward-heading-same-level: Do not rely on match-data from
`org-back-to-heading'
* lisp/org.el (org-forward-heading-same-level): Use
`org-current-level' instead of relying upon `org-back-to-heading' to
set match data.
Reported-by: Nick Dokos <ndokos@gmail.com>
Link: https://orgmode.org/list/87352hk0nt.fsf@alphaville.usersys.redhat.com
---
lisp/org.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/org.el b/lisp/org.el
index 2e26c08e5b..108f87d984 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -20659,7 +20659,7 @@ non-nil it will also look at invisible ones."
(if backward? (goto-char (point-min)) (outline-next-heading))
(org-back-to-heading invisible-ok)
(unless backward? (end-of-line)) ;do not match current headline
- (let ((level (- (match-end 0) (match-beginning 0) 1))
+ (let ((level (org-current-level))
(f (if backward? #'re-search-backward #'re-search-forward))
(count (if arg (abs arg) 1))
(result (point)))