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

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

[elpa] externals/vertico-posframe 7f01bcf 06/10: Better deal with vertic


From: ELPA Syncer
Subject: [elpa] externals/vertico-posframe 7f01bcf 06/10: Better deal with vertico-posframe--advice.
Date: Wed, 27 Oct 2021 14:58:43 -0400 (EDT)

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

    Better deal with vertico-posframe--advice.
    
        * vertico-posframe.el (vertico-posframe--advice): Update docstring.
        (vertico-posframe-mode): Handle vertico-posframe--advice.
---
 vertico-posframe.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/vertico-posframe.el b/vertico-posframe.el
index f80453e..933c2a1 100644
--- a/vertico-posframe.el
+++ b/vertico-posframe.el
@@ -229,8 +229,8 @@ When 0, no border is showed."
   (overlay-put vertico-posframe--overlay 'priority 1000)
   (overlay-put vertico-posframe--overlay 'before-string "\n"))
 
-(defun vertico-posframe--advice (orig &rest args)
-  "Advice function of `vertico--advice'."
+(defun vertico-posframe--advice (orig &rest _args)
+  "Advice for ORIG completion function, receiving ARGS."
   (setq vertico-posframe--last-window (selected-window)))
 
 ;;;###autoload
@@ -241,11 +241,13 @@ When 0, no border is showed."
    (vertico-posframe-mode
     (advice-add #'vertico--display-candidates :override 
#'vertico-posframe--display)
     (advice-add #'vertico--setup :after #'vertico-posframe--setup)
-    (advice-add #'vertico--advice :before #'vertico-posframe--advice))
+    (advice-add #'completing-read-default :before #'vertico-posframe--advice)
+    (advice-add #'completing-read-multiple :before #'vertico-posframe--advice))
    (t
     (advice-remove #'vertico--display-candidates #'vertico-posframe--display)
     (advice-remove #'vertico--setup #'vertico-posframe--setup)
-    (advice-remove #'vertico--advice #'vertico-posframe--advice)
+    (advice-remove #'completing-read-default #'vertico-posframe--advice)
+    (advice-remove #'completing-read-multiple #'vertico-posframe--advice)
     (posframe-delete vertico-posframe--buffer))))
 
 (provide 'vertico-posframe)



reply via email to

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