[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/posframe 0556302 2/2: * posframe.el (posframe-show): co
From: |
ELPA Syncer |
Subject: |
[elpa] externals/posframe 0556302 2/2: * posframe.el (posframe-show): conside ref-position when mouse banish. |
Date: |
Wed, 27 Oct 2021 02:57:40 -0400 (EDT) |
branch: externals/posframe
commit 055630209ea5e1d3135aeef68855494c1b4c1746
Author: Feng Shu <tumashu@163.com>
Commit: Feng Shu <tumashu@163.com>
* posframe.el (posframe-show): conside ref-position when mouse banish.
---
posframe.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/posframe.el b/posframe.el
index da67c48..c633b2c 100644
--- a/posframe.el
+++ b/posframe.el
@@ -699,8 +699,10 @@ You can use `posframe-delete-all' to delete all posframes."
;; Mouse banish
(posframe--mouse-banish
(list :parent-frame parent-frame
- :mouse-x (car mouse-position)
- :mouse-y (cdr mouse-position)
+ :mouse-x (+ (or (car ref-position) 0)
+ (car mouse-position))
+ :mouse-y (+ (or (cdr ref-position) 0)
+ (cdr mouse-position))
:posframe-x (car position)
:posframe-y (cdr position)
:posframe-width (frame-pixel-width posframe)