[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/posframe e55b4af 1/2: posfram--set-frame-position: also
From: |
Feng Shu |
Subject: |
[elpa] externals/posframe e55b4af 1/2: posfram--set-frame-position: also set position when frame size changed |
Date: |
Sun, 28 Jun 2020 22:41:24 -0400 (EDT) |
branch: externals/posframe
commit e55b4afa3d7bc2763d829c339dbbfb9c2df9f502
Author: Kien Nguyen <kien.n.quang@gmail.com>
Commit: Kien Nguyen <kien.n.quang@gmail.com>
posfram--set-frame-position: also set position when frame size changed
---
posframe.el | 13 +++++++++++--
1 file changed, 11 insertions(+), 2 deletions(-)
diff --git a/posframe.el b/posframe.el
index 8c48f07..bb1c0bf 100644
--- a/posframe.el
+++ b/posframe.el
@@ -183,6 +183,9 @@ posframe-show's arguments."
(defvar-local posframe--last-posframe-size nil
"Record the last size of posframe's frame.")
+(defvar-local posframe--last-posframe-displayed-size nil
+ "Record the last displayed size of posframe's frame.")
+
(defvar-local posframe--last-parent-frame-size nil
"Record the last size of posframe's parent-frame.")
@@ -704,11 +707,17 @@ This need PARENT-FRAME-WIDTH and PARENT-FRAME-HEIGHT"
;; When working frame's size change, re-posit
;; the posframe.
(equal posframe--last-parent-frame-size
- (cons parent-frame-width parent-frame-height)))
+ (cons parent-frame-width parent-frame-height))
+ (equal posframe--last-posframe-displayed-size
+ (cons (frame-pixel-width posframe)
+ (frame-pixel-height posframe))))
(set-frame-position posframe (car position) (cdr position))
(setq-local posframe--last-posframe-pixel-position position)
(setq-local posframe--last-parent-frame-size
- (cons parent-frame-width parent-frame-height)))
+ (cons parent-frame-width parent-frame-height))
+ (setq-local posframe--last-posframe-displayed-size
+ (cons (frame-pixel-width posframe)
+ (frame-pixel-height posframe))))
;; Make posframe's posframe--frame visible
(unless (frame-visible-p posframe)
(make-frame-visible posframe)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/posframe e55b4af 1/2: posfram--set-frame-position: also set position when frame size changed,
Feng Shu <=