aboutsummaryrefslogtreecommitdiffstats
path: root/test/src/buffer-tests.el
diff options
context:
space:
mode:
Diffstat (limited to 'test/src/buffer-tests.el')
-rw-r--r--test/src/buffer-tests.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/test/src/buffer-tests.el b/test/src/buffer-tests.el
index 4d608fa9d24..b4b9e761986 100644
--- a/test/src/buffer-tests.el
+++ b/test/src/buffer-tests.el
@@ -1753,7 +1753,7 @@ quae ab illo inventore veritatis et quasi architecto beatae vitae
1753dicta sunt, explicabo. ")) 1753dicta sunt, explicabo. "))
1754 1754
1755 (while (< iteration-count iteration-target) 1755 (while (< iteration-count iteration-target)
1756 (cl-incf iteration-count) 1756 (incf iteration-count)
1757 1757
1758 ;; Toggle GROWING if we've reached a size boundary. The idea 1758 ;; Toggle GROWING if we've reached a size boundary. The idea
1759 ;; is to initially steadily increase the overlay count, then 1759 ;; is to initially steadily increase the overlay count, then
@@ -1780,7 +1780,7 @@ dicta sunt, explicabo. "))
1780 (ov (make-overlay begin end nil 1780 (ov (make-overlay begin end nil
1781 (= 0 (random 2)) (= 0 (random 2))))) 1781 (= 0 (random 2)) (= 0 (random 2)))))
1782 (aset overlays overlay-count ov) 1782 (aset overlays overlay-count ov)
1783 (cl-incf overlay-count))) 1783 (incf overlay-count)))
1784 ((and (not create-overlay) (> overlay-count 0)) 1784 ((and (not create-overlay) (> overlay-count 0))
1785 1785
1786 ;; Possibly delete a random overlay. 1786 ;; Possibly delete a random overlay.