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)

Reply via email to