[elpa] externals/org f1a197401c: org-fold-core-regions: Avoid multiple evaluation of argument

[ELPA Syncer]

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

    org-fold-core-regions: Avoid multiple evaluation of argument
    
    * lisp/org-fold-core.el (org-fold-core-regions): Evaluate RELATIVE
    once.
---
 lisp/org-fold-core.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/org-fold-core.el b/lisp/org-fold-core.el
index a4b55a304a..cedde742aa 100644
--- a/lisp/org-fold-core.el
+++ b/lisp/org-fold-core.el
@@ -1036,9 +1036,10 @@ from that position."
   `(org-with-wide-buffer
     (when ,override (org-fold-core-region (point-min) (point-max) nil))
     (pcase-dolist (`(,beg ,end ,spec) (delq nil ,regions))
-      (if ,relative
-          (org-fold-core-region (+ ,relative beg) (+ ,relative end) t spec)
-        (org-fold-core-region beg end t spec))
+      (let ((rel ,relative))
+        (if rel
+            (org-fold-core-region (+ rel beg) (+ rel end) t spec)
+          (org-fold-core-region beg end t spec)))
       (when ,clean-markers
         (when (markerp beg) (set-marker beg nil))
         (when (markerp end) (set-marker end nil))))))