[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