branch: externals/ivy-posframe commit f032c5805478717ee57933f499545f514ede1f6f Author: conao3 <con...@gmail.com> Commit: conao3 <con...@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 ()