[elpa] externals/posframe 9fbf2ea7ff 1/3: Deal with border when use refposhandler.

[ELPA Syncer]

branch: externals/posframe
commit 9fbf2ea7ffb534b1434041fe6e2ae7671ebadb32
Author: Feng Shu <tumashu@163.com>
Commit: Feng Shu <tumashu@163.com>

    Deal with border when use refposhandler.
---
 posframe.el | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/posframe.el b/posframe.el
index 5ba6211357..743dec3207 100644
--- a/posframe.el
+++ b/posframe.el
@@ -678,11 +678,17 @@ ACCEPT-FOCUS."
          posframe--frame 'font
          (or font (face-attribute 'default :font parent-frame)))
         (when border-color
-         (set-face-background
-           (if (facep 'child-frame-border)
-               'child-frame-border
-             'internal-border)
-           border-color posframe--frame)
+          (if parent-frame
+             (set-face-background
+               (if (facep 'child-frame-border)
+                   'child-frame-border
+                 'internal-border)
+               border-color posframe--frame)
+            ;; NOTE: when use refposhander feature, parent-frame will be
+            ;; nil, we should use internal-border instead.
+            (set-face-background
+             'internal-border
+             border-color posframe--frame))
           ;; HACK: Set face background after border color, otherwise the
           ;; border is not updated (BUG!).
           (when (version< emacs-version "28.0")