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

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

[elpa] externals/vertico-posframe f4bcbc3 1/2: * vertico-posframe.el (ve


From: ELPA Syncer
Subject: [elpa] externals/vertico-posframe f4bcbc3 1/2: * vertico-posframe.el (vertico-posframe--display): better handler minibuffer cover position.
Date: Thu, 28 Oct 2021 14:57:34 -0400 (EDT)

branch: externals/vertico-posframe
commit f4bcbc35018de668f321ec601136e0839820ea5c
Author: Feng Shu <tumashu@163.com>
Commit: Feng Shu <tumashu@163.com>

    * vertico-posframe.el (vertico-posframe--display): better handler 
minibuffer cover position.
---
 vertico-posframe.el | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/vertico-posframe.el b/vertico-posframe.el
index 0b7f6fd..cc00659 100644
--- a/vertico-posframe.el
+++ b/vertico-posframe.el
@@ -186,10 +186,13 @@ Optional argument FRAME ."
       ;; Create a posframe to cover minibuffer.
       (if input-method
           (posframe-hide vertico-posframe--minibuffer-cover)
-        (posframe-show vertico-posframe--minibuffer-cover
-                       :string (make-string 120 ? )
-                       :position '(0 . -1)
-                       :lines-truncate t))
+        (let* ((win (active-minibuffer-window))
+               (x (window-pixel-left win))
+               (y (window-pixel-top win)))
+          (posframe-show vertico-posframe--minibuffer-cover
+                         :string (make-string 120 ? )
+                         :position (cons x y)
+                         :lines-truncate t)))
       (apply #'posframe-show
              vertico-posframe--buffer
              :font vertico-posframe-font



reply via email to

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