mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-25 07:32:52 +00:00
Code Releases Activity

org-fold-core-next-folding-state-change: Optimize performance

Browse source 
* lisp/org-fold-core.el (org-fold-core-next-folding-state-change):
Avoid repetitive searches all to way to LIMIT.  Instead, limit the
next searches by the limit computer by previous.
This commit is contained in:
Ihor Radchenko 2023-07-13 19:32:49 +03:00
parent 17096b3f4c
commit c9b80f06d4
No known key found for this signature in database
GPG key ID: 6470762A7DA11D8B
1 changed files with 13 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
lisp/org-fold-core.el
View file

@ -910,14 +910,19 @@ Search backwards when PREVIOUS-P is non-nil."
(unless spec-or-alias (unless spec-or-alias
(setq spec-or-alias (org-fold-core-folding-spec-list))) (setq spec-or-alias (org-fold-core-folding-spec-list)))
(setq pos (or pos (point))) (setq pos (or pos (point)))
(apply (if previous-p (let ((limit (or limit (if previous-p (point-min) (point-max)))))
#'max (catch :limit
#'min) (dolist (prop (mapcar
(mapcar (if previous-p (lambda (el)
(lambda (prop) (max (or limit (point-min)) (previous-single-char-property-change pos prop nil (or limit (point-min))))) (org-fold-core--property-symbol-get-create el nil t))
(lambda (prop) (next-single-char-property-change pos prop nil (or limit (point-max))))) spec-or-alias))
(mapcar (lambda (el) (org-fold-core--property-symbol-get-create el nil t)) (when (= limit pos) (throw :limit limit))
spec-or-alias)))) (setq
limit
(if previous-p
(previous-single-char-property-change pos prop nil limit)
(next-single-char-property-change pos prop nil limit))))
limit)))
(defun org-fold-core-previous-folding-state-change (&optional spec-or-alias pos limit) (defun org-fold-core-previous-folding-state-change (&optional spec-or-alias pos limit)
"Call `org-fold-core-next-folding-state-change' searching backwards." "Call `org-fold-core-next-folding-state-change' searching backwards."