[elpa] externals/ivy-posframe ce7505d 171/195: Merge pull request #57 from conao3/fix-warning

[Feng Shu]

branch: externals/ivy-posframe
commit ce7505d61cf6e7dd85884d3edf4003d9257d15f7
Merge: 3df0c29 1794866
Author: tumashu <tumashu@163.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #57 from conao3/fix-warning
    
    fix warnings; use mapc instead of mapcar
---
 ivy-posframe.el | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/ivy-posframe.el b/ivy-posframe.el
index 8e75bbe..47249b7 100644
--- a/ivy-posframe.el
+++ b/ivy-posframe.el
@@ -553,14 +553,13 @@ The return value is undefined.
             ([remap swiper-avy]           . ivy-posframe-swiper-avy)
             ([remap ivy-read-action]      . ivy-posframe-read-action)
             ([remap ivy-dispatching-done] . ivy-posframe-dispatching-done))
-  (let ((advices ivy-posframe-advice-alist))
-    (if ivy-posframe-mode
-        (mapcar (lambda (elm)
-                  (advice-add (car elm) :around (cdr elm)))
-                advices)
-      (mapcar (lambda (elm)
-                (advice-remove (car elm) (cdr elm)))
-              advices))))
+  (if ivy-posframe-mode
+      (mapc (lambda (elm)
+              (advice-add (car elm) :around (cdr elm)))
+            ivy-posframe-advice-alist)
+    (mapc (lambda (elm)
+            (advice-remove (car elm) (cdr elm)))
+          ivy-posframe-advice-alist)))
 
 ;;;###autoload
 (defun ivy-posframe-enable ()