[elpa] externals/popper 7f61e916ce 037/102: Child frame support for popper (ongoing)

[ELPA Syncer]

branch: externals/popper
commit 7f61e916cef2946250acf59691829eb75a481770
Author: Karthik Chikmagalur <karthikchikmagalur@gmail.com>
Commit: Karthik Chikmagalur <karthikchikmagalur@gmail.com>

    Child frame support for popper (ongoing)
---
 popper.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/popper.el b/popper.el
index f09e0be4f4..75e1979460 100644
--- a/popper.el
+++ b/popper.el
@@ -334,10 +334,12 @@ Each element of the alist is a cons cell of the form 
(window . buffer)."
       (pop popper-open-popup-alist)
       (with-selected-window win
         (bury-buffer)
-        ;;only close window when window has a parent:
+        ;;only close window when window has a parent or in a child frame:
         (if (and (window-valid-p win)
                  (window-parent win))
-            (delete-window win))))))
+            (delete-window win)
+          (if (frame-parent)
+              (delete-frame)))))))
 
 (defun popper-open-latest (&optional group)
   "Open the last closed popup.