branch: externals/ivy-posframe
commit 7f60e8c12f90064552077c0938f8e90793d84eea
Author: conao3 <[email protected]>
Commit: conao3 <[email protected]>
define ivy-posframe-display-function-list
---
ivy-posframe.el | 13 ++++++++-----
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/ivy-posframe.el b/ivy-posframe.el
index fc50244..9ad2418 100644
--- a/ivy-posframe.el
+++ b/ivy-posframe.el
@@ -434,6 +434,13 @@ selection, non-nil otherwise."
;;; variables
+(defvar ivy-posframe-display-function-list
+ (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))
+
(defvar ivy-posframe-advice-alist
'((ivy--minibuffer-setup . ivy-posframe--minibuffer-setup)
(ivy--queue-exhibit . ivy-posframe--add-prompt)))
@@ -451,11 +458,7 @@ selection, non-nil otherwise."
:global t
:lighter " ivy-pf"
:group 'ivy-posframe
- (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)))
+ (let ((fncs ivy-posframe-display-function-list)
(advs ivy-posframe-advice-alist)
(keys ivy-posframe-keybind-list))
(if ivy-posframe-mode
