branch: externals/posframe
commit 055630209ea5e1d3135aeef68855494c1b4c1746
Author: Feng Shu <[email protected]>
Commit: Feng Shu <[email protected]>
* 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)
