[elpa] externals/vertico-posframe 27d3939163: Fix: not compatible with latest version of vertico-multiform #40

[ELPA Syncer]

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

    Fix: not compatible with latest version of vertico-multiform #40
---
 vertico-posframe.el | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/vertico-posframe.el b/vertico-posframe.el
index 44c5cef7cc..cd46cd72ba 100644
--- a/vertico-posframe.el
+++ b/vertico-posframe.el
@@ -202,9 +202,18 @@ vertico-posframe works with vertico multiform toggle."
   (posframe-hide vertico-posframe--buffer))
 
 ;; Support vertico-multiform
-(cl-pushnew 'vertico-posframe-mode vertico-multiform--display-modes)
-(vertico-multiform--define-display-toggle posframe)
-(define-key vertico-multiform-map (kbd "M-P") #'vertico-multiform-posframe)
+(let* ((name 'posframe)
+       (key (kbd "M-p"))
+       (mode (intern (format "vertico-%s-mode" name)))
+       (toggle (intern (format "vertico-multiform-%s" name))))
+  (defalias toggle
+    (lambda ()
+      (interactive)
+      (vertico-multiform-vertical mode))
+    (format "Toggle the %s display." name))
+  (push mode vertico-multiform--display-modes)
+  (put toggle 'completion-predicate #'vertico--command-p)
+  (define-key vertico-multiform-map key #'vertico-multiform-posframe))
 
 (cl-defmethod vertico--setup
   :after (&context ((vertico-posframe-mode-workable-p) (eql t)))