diff --git a/lisp/org-fold-core.el b/lisp/org-fold-core.el
index 227a2a4af..4056ae004 100644
--- a/lisp/org-fold-core.el
+++ b/lisp/org-fold-core.el
@@ -1471,7 +1471,7 @@ folded regions.")
           (save-match-data
             ;; Only run within regions that are not yet touched by
             ;; fontification.
-            (let ((l pos) (r next) (c pos) nxt)
+            (let ((r next) (c pos) nxt)
               (when (get-text-property c 'org-fold-core-fontified)
                 (setq c (next-single-property-change c 'org-fold-core-fontified)))
               (setq nxt (next-single-property-change c 'org-fold-core-fontified nil r))