forked from mirrors/org-mode
org-fold-show-set-visibility: Fix edge case when folded region is at BOB
This commit is contained in:
parent
0daa209a74
commit
0bca8bc418
|
@ -840,7 +840,7 @@ DETAIL is either nil, `minimal', `local', `ancestors',
|
||||||
(org-with-point-at (car region)
|
(org-with-point-at (car region)
|
||||||
(beginning-of-line)
|
(beginning-of-line)
|
||||||
(let (font-lock-extend-region-functions)
|
(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
|
(when region
|
||||||
(org-fold-region (car region) (cdr region) nil))))
|
(org-fold-region (car region) (cdr region) nil))))
|
||||||
(unless (org-before-first-heading-p)
|
(unless (org-before-first-heading-p)
|
||||||
|
|
Loading…
Reference in New Issue