org-fold-core-regions: Avoid multiple evaluation of argument

* lisp/org-fold-core.el (org-fold-core-regions): Evaluate RELATIVE once.
emacs-straight · Sep 20, 2022 · f1a1974 · f1a1974
1 parent 0057cc2
commit f1a1974
Showing 1 changed file with 4 additions and 3 deletions.
diff --git 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))))))