[elpa] externals/ivy-posframe 7f60e8c 112/195: define ivy-posframe-display-function-list

[Feng Shu]

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

    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