|
@@ -7337,10 +7337,7 @@ the cache."
|
|
|
(let ((mk (make-marker)))
|
|
|
(set-marker mk to-pos)
|
|
|
(setq to-pos mk)))
|
|
|
- ;; Make sure that garbage collector does not stand on the way to
|
|
|
- ;; maximum performance.
|
|
|
- (let ((gc-cons-threshold #x40000000)
|
|
|
- ;; Bind variables used inside loop to avoid memory
|
|
|
+ (let (;; Bind variables used inside loop to avoid memory
|
|
|
;; re-allocation on every iteration.
|
|
|
;; See https://emacsconf.org/2021/talks/faster/
|
|
|
tmpnext-start tmpparent tmpelement)
|