branch: externals/org
commit baffebbc33e600ec7abfe5e54b60ea6753d4f272
Author: Anders Johansson <[email protected]>
Commit: Ihor Radchenko <[email protected]>
Fix bug in org-get-heading
Fixes #26, where fontification could make the matching and extraction of
heading
components fail.
---
lisp/org.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/lisp/org.el b/lisp/org.el
index e361d41539..8a1f0bd9c9 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -6167,8 +6167,9 @@ Return nil before first heading."
(let ((case-fold-search nil))
(looking-at org-complex-heading-regexp)
;; When using `org-fold-core--optimise-for-huge-buffers',
- ;; returned text may be invisible. Clear it up.
- (org-fold-core-remove-optimisation (match-beginning 0) (match-end 0))
+ ;; returned text will be invisible. Clear it up.
+ (save-match-data
+ (org-fold-core-remove-optimisation (match-beginning 0) (match-end
0)))
(let ((todo (and (not no-todo) (match-string 2)))
(priority (and (not no-priority) (match-string 3)))
(headline (pcase (match-string 4)
