emacs/gnu.emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2026-09-10 15:56:35 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix thinko in 'set-frame-size-and-position' (Bug#81193)

Browse source 
* lisp/frame.el (set-frame-size-and-position): Do not subtract
scoll bar, fringes and internal border sizes twice (Bug#81193).
This commit is contained in:
Martin Rudalics 2026-06-18 16:41:23 +02:00
parent 050ca1a40f
commit 14bf2a707c
1 changed files with 2 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/frame.el
View file

@ -1782,11 +1782,7 @@ resize and move FRAME."
(when negative
(setq gravity 3)
(setq left (- parent-or-display-width (- left)
(+ text-width
(frame-scroll-bar-width frame)
(frame-fringe-width frame)
(* 2 (frame-internal-border-width frame))
outer-minus-text-width))))
text-width outer-minus-text-width)))
(setq negative nil)
(cond
@ -1813,9 +1809,7 @@ resize and move FRAME."
;; This should get us 7 or 9.
(setq gravity (+ gravity 6))
(setq top (- parent-or-display-height (- top)
(+ text-height
(* 2 (frame-internal-border-width frame)))
outer-minus-text-height)))
text-height outer-minus-text-height)))
(set-frame-size-and-position-pixelwise
frame text-width text-height left top gravity)))