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

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

[elpa] externals/org 687d5702d2 1/4: org-fold-core-next-folding-state-ch


From: ELPA Syncer
Subject: [elpa] externals/org 687d5702d2 1/4: org-fold-core-next-folding-state-change: Fix when using overlays
Date: Sat, 13 Aug 2022 03:57:51 -0400 (EDT)

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

    org-fold-core-next-folding-state-change: Fix when using overlays
    
    * lisp/org-fold-core.el (org-fold-core-next-folding-state-change):
    Consider overlay properties.
---
 lisp/org-fold-core.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/org-fold-core.el b/lisp/org-fold-core.el
index 322840ed00..ce125dbbba 100644
--- a/lisp/org-fold-core.el
+++ b/lisp/org-fold-core.el
@@ -906,8 +906,8 @@ Search backwards when PREVIOUS-P is non-nil."
             #'max
           #'min)
          (mapcar (if previous-p
-                    (lambda (prop) (max (or limit (point-min)) 
(previous-single-property-change pos prop nil (or limit (point-min)))))
-                  (lambda (prop) (next-single-property-change pos prop nil (or 
limit (point-max)))))
+                    (lambda (prop) (max (or limit (point-min)) 
(previous-single-char-property-change pos prop nil (or limit (point-min)))))
+                  (lambda (prop) (next-single-char-property-change pos prop 
nil (or limit (point-max)))))
                  (mapcar (lambda (el) 
(org-fold-core--property-symbol-get-create el nil t))
                         spec-or-alias))))
 



reply via email to

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