[elpa] externals/posframe d0a04f6ea9 1/2: configure posframe position during creation if position is available

[ELPA Syncer]

branch: externals/posframe
commit d0a04f6ea9983a9ffce0d76b98b90da73f52004a
Author: Ta Quang Trung <taquangtrun...@gmail.com>
Commit: tumashu <tuma...@163.com>

    configure posframe position during creation if position is available
---
 posframe.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/posframe.el b/posframe.el
index 4ce7de98fa..e8704fc2ef 100644
--- a/posframe.el
+++ b/posframe.el
@@ -409,6 +409,7 @@ You can use `posframe-delete-all' to delete all posframes."
       (setq posframe
             (posframe--create-posframe
              buffer
+             :position position
              :font font
              :parent-frame
              (unless ref-position
@@ -541,6 +542,7 @@ You can use `posframe-delete-all' to delete all posframes."
 
 (cl-defun posframe--create-posframe (buffer-or-name
                                      &key
+                                     position
                                      parent-frame
                                      foreground-color
                                      background-color
@@ -666,6 +668,8 @@ ACCEPT-FOCUS."
                        (visibility . nil)
                        (cursor-type . nil)
                        (minibuffer . nil)
+                       (left . ,(if (consp position) (car position) 0))
+                       (top . ,(if (consp position) (cdr position) 0))
                        (width . 1)
                        (height . 1)
                        (no-special-glyphs . t)