branch: externals/org
commit 0bca8bc41852cc15cc9572add4d502aaa07606df
Author: Ihor Radchenko <[email protected]>
Commit: Ihor Radchenko <[email protected]>
org-fold-show-set-visibility: Fix edge case when folded region is at BOB
---
lisp/org-fold.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/org-fold.el b/lisp/org-fold.el
index a16ee0f9bd..d5a21cbcbd 100644
--- a/lisp/org-fold.el
+++ b/lisp/org-fold.el
@@ -840,7 +840,7 @@ DETAIL is either nil, `minimal', `local', `ancestors',
(org-with-point-at (car region)
(beginning-of-line)
(let (font-lock-extend-region-functions)
- (font-lock-fontify-region (1- (car region)) (cdr region))))))
+ (font-lock-fontify-region (max (point-min) (1- (car region)))
(cdr region))))))
(when region
(org-fold-region (car region) (cdr region) nil))))
(unless (org-before-first-heading-p)
