[gnu] externals/buframe 19513a4425 1/2: Redirecting focus to new parent

[ELPA Syncer]

branch: externals/buframe
commit 19513a4425df46dcf93759e42c61a7758256fcfb
Author: Al Haji-Ali <a.haji...@hw.ac.uk>
Commit: Al Haji-Ali <a.haji...@hw.ac.uk>

    Redirecting focus to new parent
---
 buframe.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/buframe.el b/buframe.el
index f8172d21d0..33e25b803c 100644
--- a/buframe.el
+++ b/buframe.el
@@ -351,7 +351,8 @@ Also ensure frame is made visible."
                   ((buffer-live-p buffer))
                   (new-parent (window-frame (get-buffer-window buffer 
'visible)))
                   ((not (eq (frame-parent frame) new-parent))))
-        (set-frame-parameter frame 'parent-frame new-parent))
+        (set-frame-parameter frame 'parent-frame new-parent)
+        (redirect-frame-focus frame new-parent))
 
       (with-current-buffer (plist-get info :parent-buffer)
         (if-let* ((pos (funcall fn-pos frame)))