branch: externals/bufferlo
commit 059ea75b0b3309ab6a75e88b0fc180e90e88cccd
Author: shipmints <shipmi...@gmail.com>
Commit: shipmints <shipmi...@gmail.com>
Set frame geometry accepts forms returned by frame-parameter
This includes conses such as (+ 12) not just integer values.
set-frame-position accepts only integers. modify-frame-parameters
accepts the correct forms.
---
bufferlo.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/bufferlo.el b/bufferlo.el
index 6f12479b54..efca78d6ef 100644
--- a/bufferlo.el
+++ b/bufferlo.el
@@ -2407,7 +2407,9 @@ Geometry set for FRAME or the current frame, if nil."
(setq frame (or frame (selected-frame)))
(let-alist frame-geometry
(when (and .left .top .width .height) ; defensive in case geometry stored
from a tty
- (set-frame-position nil .left .top)
+ (modify-frame-parameters frame `((user-position . t)
+ (left . ,.left)
+ (top . ,.top)))
(sit-for 0 t)
;; Clamp frame size restored from a larger display
(set-frame-size nil
