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

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

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


From: ELPA Syncer
Subject: [elpa] externals/vertico-posframe 1c361e0 1/2: * vertico-posframe.el (vertico-posframe--create-minibuffer-cover): do not use (0 . -1).
Date: Thu, 4 Nov 2021 23:57:29 -0400 (EDT)

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

    * vertico-posframe.el (vertico-posframe--create-minibuffer-cover): do not 
use (0 . -1).
---
 vertico-posframe.el | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/vertico-posframe.el b/vertico-posframe.el
index b1569f2..1aaeaa0 100644
--- a/vertico-posframe.el
+++ b/vertico-posframe.el
@@ -234,10 +234,14 @@ Show STRING when it is a string."
 
 (defun vertico-posframe--create-minibuffer-cover (&optional string)
   "Create minibuffer cover."
-  (let ((color (face-background 'default nil)))
+  (let ((color (face-background 'default nil))
+        (win (active-minibuffer-window)))
     (posframe-show vertico-posframe--minibuffer-cover
-                   :string (or string (make-string (frame-width) ? ))
-                   :position (cons 0 -1)
+                   :string (or string (make-string (frame-width) ?\ ))
+                   :position (cons 0 (- (frame-pixel-height)
+                                        (if win
+                                            (window-pixel-height win)
+                                          (default-font-height))))
                    :background-color color
                    :foreground-color color
                    :lines-truncate t



reply via email to

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