branch: externals/posframe
commit 4ff106ed5c6e3dc9ddba7e158c7ae9085a43b0bc
Merge: 8a9af54 33ad4ac
Author: tumashu <[email protected]>
Commit: GitHub <[email protected]>
Merge pull request #57 from tsuu32/fix/refresh-fit
Fix incorrect posframe size after posframe-refresh
---
posframe.el | 14 +++++++++-----
1 file changed, 9 insertions(+), 5 deletions(-)
diff --git a/posframe.el b/posframe.el
index 7df03fe..431c71b 100644
--- a/posframe.el
+++ b/posframe.el
@@ -644,7 +644,9 @@ WIDTH and MIN-WIDTH."
(setq-local posframe--last-posframe-size
(list height min-height width min-width)))
(fit-frame-to-buffer
- posframe height min-height width min-width)))
+ posframe height min-height width min-width)
+ (setq-local posframe--last-posframe-size
+ (list height min-height width min-width))))
(defun posframe--set-frame-position (posframe position
parent-frame-width
@@ -695,9 +697,10 @@ WIDTH and MIN-WIDTH."
(run-with-timer
nil repeat
#'(lambda (frame height min-height width min-width)
- (when (and frame (frame-live-p frame))
- (fit-frame-to-buffer
- frame height min-height width min-width)))
+ (let ((frame-resize-pixelwise t))
+ (when (and frame (frame-live-p frame))
+ (fit-frame-to-buffer
+ frame height min-height width min-width))))
posframe height min-height width min-width)))))
(defun posframe-refresh (buffer-or-name)
@@ -723,7 +726,8 @@ to do similar job:
(erase-buffer)
(insert \"ffffffffffffff\"))"
(dolist (frame (frame-list))
- (let ((buffer-info (frame-parameter frame 'posframe-buffer)))
+ (let ((buffer-info (frame-parameter frame 'posframe-buffer))
+ (frame-resize-pixelwise t))
(when (or (equal buffer-or-name (car buffer-info))
(equal buffer-or-name (cdr buffer-info)))
(with-current-buffer buffer-or-name
