소스 검색

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.
Ihor Radchenko 2 년 전
부모
커밋
687d5702d2
1개의 변경된 파일2개의 추가작업 그리고 2개의 파일을 삭제
  1. 2 2
      lisp/org-fold-core.el

+ 2 - 2
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))))