[elpa] externals/ivy-posframe 8624418 123/195: add ivy-posframe--display-function-prop advice

[Feng Shu]

branch: externals/ivy-posframe
commit 86244187bc993abe8e63aa6f9b59d949997a7e2c
Author: conao3 <conao3@gmail.com>
Commit: conao3 <conao3@gmail.com>

    add ivy-posframe--display-function-prop advice
---
 ivy-posframe.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/ivy-posframe.el b/ivy-posframe.el
index 104e700..3003090 100644
--- a/ivy-posframe.el
+++ b/ivy-posframe.el
@@ -471,6 +471,14 @@ selection, non-nil otherwise."
           (insert prompt "  \n")
           (add-text-properties point (1+ point) '(face 
ivy-posframe-cursor)))))))
 
+(defun ivy-posframe--display-function-prop (fn &rest args)
+  "Around advice of FN with ARGS."
+  (let ((ivy-display-functions-props
+         (append ivy-display-functions-props
+                 (mapcar (lambda (elm) `(,elm :cleanup ivy-posframe-cleanup))
+                         ivy-posframe-display-function-list))))
+    (apply fn args)))
+
 (defun ivy-posframe--height (fn &rest args)
   "Around advide of FN with ARGS."
   (let ((ivy-height-alist
@@ -496,6 +504,7 @@ selection, non-nil otherwise."
 (defvar ivy-posframe-advice-alist
   '((ivy--minibuffer-setup . ivy-posframe--minibuffer-setup)
     (ivy--queue-exhibit    . ivy-posframe--add-prompt)
+    (ivy--display-function-prop . ivy-posframe--display-function-prop)
     (ivy--height           . ivy-posframe--height)
     (ivy-read              . ivy-posframe--read)))