emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/posframe 4ff106e 08/13: Merge pull request #57 from tsu


From: Feng Shu
Subject: [elpa] externals/posframe 4ff106e 08/13: Merge pull request #57 from tsuu32/fix/refresh-fit
Date: Sun, 5 Apr 2020 07:58:04 -0400 (EDT)

branch: externals/posframe
commit 4ff106ed5c6e3dc9ddba7e158c7ae9085a43b0bc
Merge: 8a9af54 33ad4ac
Author: tumashu <address@hidden>
Commit: GitHub <address@hidden>

    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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]