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

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

[elpa] externals/ivy-posframe f032c58 124/195: remove overwrite ivy vari


From: Feng Shu
Subject: [elpa] externals/ivy-posframe f032c58 124/195: remove overwrite ivy variable code
Date: Sat, 3 Oct 2020 07:11:58 -0400 (EDT)

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

    remove overwrite ivy variable code
---
 ivy-posframe.el | 14 +++-----------
 1 file changed, 3 insertions(+), 11 deletions(-)

diff --git a/ivy-posframe.el b/ivy-posframe.el
index 3003090..4a631cb 100644
--- a/ivy-posframe.el
+++ b/ivy-posframe.el
@@ -519,22 +519,14 @@ selection, non-nil otherwise."
             ([remap ivy-dispatching-done] ivy-posframe-dispatching-done)
             ([remap ivy-avy] ivy-posframe-avy)
             ([remap swiper-avy] ivy-posframe-swiper-avy))
-  (let ((fncs ivy-posframe-display-function-list)
-        (advs ivy-posframe-advice-alist)
-        (configures ivy-posframe-configure-alist))
+  (let ((advices ivy-posframe-advice-alist))
     (if ivy-posframe-mode
         (eval
          `(progn
-            ,@(mapcan
-               (lambda (conf) (mapcar (lambda (elm) `(push ',elm ,(car conf))) 
(cdr conf))) configures)
-            ,@(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) `(advice-add ',(car elm) :around #',(cdr 
elm))) advices)))
       (eval
        `(progn
-          ,@(mapcan
-             (lambda (conf) (mapcar (lambda (elm) `(setq ,(car conf) (remove 
',elm ,(car conf)))) (cdr conf))) configures)
-          ,@(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) `(advice-remove ',(car elm) #',(cdr elm))) 
advices))))))
 
 ;;;###autoload
 (defun ivy-posframe-demo ()



reply via email to

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