branch: externals/ivy-posframe
commit 19cc9199e0d0098921c685c03b6898ea30436790
Author: conao3 <con...@gmail.com>
Commit: conao3 <con...@gmail.com>
use function-alist instead of display-functions
---
ivy-posframe.el | 15 +++++----------
1 file changed, 5 insertions(+), 10 deletions(-)
diff --git a/ivy-posframe.el b/ivy-posframe.el
index 7204c72..7702bcb 100644
--- a/ivy-posframe.el
+++ b/ivy-posframe.el
@@ -434,15 +434,6 @@ selection, non-nil otherwise."
;;; variables
-(defvar ivy-posframe-display-functions
- '(ivy-posframe-display
- ivy-posframe-display-at-window-center
- ivy-posframe-display-at-frame-center
- ivy-posframe-display-at-window-bottom-left
- ivy-posframe-display-at-frame-bottom-left
- ivy-posframe-display-at-frame-bottom-window-center
- ivy-posframe-display-at-point))
-
(defvar ivy-posframe-advice-alist
'((ivy--minibuffer-setup . ivy-posframe--minibuffer-setup)
(ivy--queue-exhibit . ivy-posframe--add-prompt)))
@@ -460,7 +451,11 @@ selection, non-nil otherwise."
:global t
:lighter " ivy-pf"
:group 'ivy-posframe
- (let ((fncs ivy-posframe-display-functions)
+ (let ((fncs (append (mapcar
+ (lambda (elm) (intern (format
"ivy-posframe-display-at-%s" (car elm))))
+ ivy-posframe-display-functions-alist)
+ '(ivy-posframe-display
+ ivy-posframe-display-at-frame-bottom-window-center)))
(advs ivy-posframe-advice-alist)
(keys ivy-posframe-keybind-list))
(if ivy-posframe-mode
