Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Prevent GC threshold from exceeding fixnum limit during precision scrolling

Browse source 
* lisp/pixel-scroll.el (pixel-scroll-start-momentum): Prevent GC
threshold from exceeding most-positive-fixnum.
This commit is contained in:
Po Lu 2022-08-03 11:42:22 +08:00
parent 9a9634dc72
commit cfb295f1e5
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/pixel-scroll.el
View file

@ -761,7 +761,8 @@ It is a vector of the form [ VELOCITY TIME SIGN ]."
(let ((window (mwheel-event-window event))
;; The animations are smoother if the GC threshold is
;; reduced for the duration of the animation.
(gc-cons-threshold (* gc-cons-threshold 3))
(gc-cons-threshold (min most-positive-fixnum
(* gc-cons-threshold 3)))
(state nil))
(when (framep window)
(setq window (frame-selected-window window)))