branch: externals/org commit 0bca8bc41852cc15cc9572add4d502aaa07606df Author: Ihor Radchenko <yanta...@gmail.com> Commit: Ihor Radchenko <yanta...@gmail.com>
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)