[elpa] externals/vertico-posframe 96c155e 1/4: Add vertico-posframe--hide-minibuffer-cover

[ELPA Syncer]

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

    Add vertico-posframe--hide-minibuffer-cover
    
        * vertico-posframe.el (vertico-posframe--hide-minibuffer-cover): New 
function.
        (vertico-posframe--hide, vertico-posframe-post-command-function): Use 
above function.
---
 vertico-posframe.el | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/vertico-posframe.el b/vertico-posframe.el
index c0d0704..5c203f0 100644
--- a/vertico-posframe.el
+++ b/vertico-posframe.el
@@ -217,6 +217,15 @@ Show STRING when it is a string."
                    :lines-truncate t
                    :timeout 3)))
 
+(defun vertico-posframe--hide-minibuffer-cover ()
+  "Hide minibuffer cover."
+  ;; FIXME: delay 0.1 second to remove minibuffer cover, which can
+  ;; limit minibuffer flicker.
+  (run-with-timer
+   0.1 nil
+   (lambda ()
+     (posframe-hide vertico-posframe--minibuffer-cover))))
+
 (defun vertico-posframe--show-minibuffer-p ()
   "Test show minibuffer or not."
   (or current-input-method
@@ -234,12 +243,7 @@ Show STRING when it is a string."
   "Hide vertico buffer."
   (when (posframe-workable-p)
     (posframe-hide vertico-posframe--buffer)
-    ;; FIXME: delay 0.1 second to remove minibuffer cover, which can
-    ;; limit minibuffer flicker.
-    (run-with-timer
-     0.1 nil
-     (lambda ()
-       (posframe-hide vertico-posframe--minibuffer-cover)))))
+    (vertico-posframe--hide-minibuffer-cover)))
 
 (defun vertico-posframe--post-command-function ()
   "`post-command-hook' function used by vertico-posframe."
@@ -247,7 +251,7 @@ Show STRING when it is a string."
     (redisplay)
     (when (and vertico-posframe-mode
                (not (minibufferp)))
-      (posframe-hide vertico-posframe--minibuffer-cover))
+      (vertico-posframe--hide-minibuffer-cover))
     (when (and vertico-posframe-mode
                (minibufferp)
                (posframe-workable-p))