[elpa] externals/org f8428d0f3e 2/9: org-fold-core--isearch-show: Small refactoring

[ELPA Syncer]

branch: externals/org
commit f8428d0f3e4605c49b10a6d92fab95617594c4cf
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    org-fold-core--isearch-show: Small refactoring
    
    * lisp/org-fold-core.el (org-fold-core--isearch-show): Do not move
    point unnecessarily.
---
 lisp/org-fold-core.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/org-fold-core.el b/lisp/org-fold-core.el
index c4d78496e5..8e4d276f42 100644
--- a/lisp/org-fold-core.el
+++ b/lisp/org-fold-core.el
@@ -1137,10 +1137,10 @@ REGION can also be an overlay in current buffer."
   (when (overlayp region)
     (setq region (cons (overlay-start region)
                        (overlay-end region))))
-  (org-with-point-at (car region)
-    (while (< (point) (cdr region))
+  (let ((pos (car region)))
+    (while (< pos (cdr region))
       (funcall org-fold-core-isearch-open-function (car region))
-      (goto-char (org-fold-core-next-visibility-change (point) (cdr region) 
'ignore-hidden)))))
+      (setq pos (org-fold-core-next-visibility-change pos (cdr region) 
'ignore-hidden)))))
 
 (defun org-fold-core--isearch-show-temporary (region hide-p)
   "Temporarily reveal text in REGION.