Fix side-effect in 'eat--set-term-sixel-params'

* eat.el (eat--set-term-sixel-params): Fix unintended
side-effect.
This commit is contained in:
Akib Azmain Turja 2023-10-10 00:42:51 +06:00
parent c071e9e5e3
commit 9d0f612004
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B

7
eat.el
View file

@ -5087,10 +5087,9 @@ selection, or nil if none."
(_ (cons (default-font-width) (default-font-height)))))
(scale-x (* eat-sixel-aspect-ratio eat-sixel-scale))
(scale-y eat-sixel-scale))
(setf (car dimensions) (max 1 (round (/ (car dimensions)
(float scale-x)))))
(setf (cdr dimensions) (max 1 (round (/ (cdr dimensions)
(float scale-y)))))
(setq dimensions
(cons (max 1 (round (/ (car dimensions) (float scale-x))))
(max 1 (round (/ (cdr dimensions) (float scale-y))))))
(setf (eat-term-parameter eat-terminal 'sixel-render-format)
render-fmt)
(setf (eat-term-parameter eat-terminal 'char-dimensions)