emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/org a3dac4d20a: fixup! org-fold-show-set-visibility: Do


From: ELPA Syncer
Subject: [elpa] externals/org a3dac4d20a: fixup! org-fold-show-set-visibility: Do not reveal emphasis unless DETAIL is `local'
Date: Thu, 28 Apr 2022 22:57:41 -0400 (EDT)

branch: externals/org
commit a3dac4d20a37c51393f191d01e0ec2170bb260a3
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>

    fixup! org-fold-show-set-visibility: Do not reveal emphasis unless DETAIL 
is `local'
    
    * lisp/org-fold.el (org-fold-show-set-visibility--text-properties):
    Consider nil value for REGION.
---
 lisp/org-fold.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/org-fold.el b/lisp/org-fold.el
index 9739bbed2d..0d8f7f9045 100644
--- a/lisp/org-fold.el
+++ b/lisp/org-fold.el
@@ -845,8 +845,9 @@ DETAIL is either nil, `minimal', `local', `ancestors',
                 (let (font-lock-extend-region-functions)
                   (font-lock-fontify-region (max (point-min) (1- (car 
region))) (cdr region))))))
           ;; Unfold links.
-          (dolist (spec '(org-link org-link-description))
-            (org-fold-region (car region) (cdr region) nil spec)))
+          (when region
+            (dolist (spec '(org-link org-link-description))
+              (org-fold-region (car region) (cdr region) nil spec))))
         (when region
           (dolist (spec (org-fold-core-folding-spec-list))
             ;; Links are taken care by above.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]