[elpa] externals/ivy-posframe d13ad21 111/195: fix argument issue

[Feng Shu]

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

    fix argument issue
---
 ivy-posframe.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/ivy-posframe.el b/ivy-posframe.el
index 7702bcb..fc50244 100644
--- a/ivy-posframe.el
+++ b/ivy-posframe.el
@@ -217,7 +217,7 @@ This variable is useful for `ivy-posframe-read-action' .")
        :internal-border-width ivy-posframe-border-width
        :internal-border-color (face-attribute 'ivy-posframe-border :background 
nil t)
        :override-parameters ivy-posframe-parameters))
-    (ivy-posframe--add-prompt)))
+    (ivy-posframe--add-prompt 'ignore)))
 
 (defun ivy-posframe-display (str)
   "Display STR via `posframe' by `ivy-posframe-style'."
@@ -461,14 +461,14 @@ selection, non-nil otherwise."
     (if ivy-posframe-mode
         (eval
          `(progn
-            (mapcar (lambda (elm) `(push `(,elm :cleanup ivy-posframe-cleanup) 
ivy-display-functions-props)) fncs)
-            (mapcar (lambda (elm) `(advice-add ',(car elm) :around #',(cdr 
elm))) vars)
-            (mapcar (lambda (elm) `(define-key ,(nth 0 elm) ,(nth 1 elm) 
',(nth 2 elm)) keys))))
+            ,@(mapcar (lambda (elm) `(push '(,elm :cleanup 
ivy-posframe-cleanup) ivy-display-functions-props)) fncs)
+            ,@(mapcar (lambda (elm) `(advice-add ',(car elm) :around #',(cdr 
elm))) advs)
+            ,@(mapcar (lambda (elm) `(define-key ,(nth 0 elm) ,(nth 1 elm) 
',(nth 2 elm))) keys)))
       (eval
        `(progn
-          (mapcar (lambda (elm) `(push `(,elm :cleanup ignore) 
ivy-display-functions-props)) fncs)
-          (mapcar (lambda (elm) `(advice-remove ',(car elm) #',(cdr elm))) 
vars)
-          (mapcar (lambda (elm) `(define-key ,(nth 0 elm) ,(nth 1 elm) nil) 
keys)))))))
+          ,@(mapcar (lambda (elm) `(push '(,elm :cleanup ignore) 
ivy-display-functions-props)) fncs)
+          ,@(mapcar (lambda (elm) `(advice-remove ',(car elm) #',(cdr elm))) 
advs)
+          ,@(mapcar (lambda (elm) `(define-key ,(nth 0 elm) ,(nth 1 elm) nil)) 
keys))))))
 
 ;;;###autoload
 (defun ivy-posframe-demo ()