[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master a98c8f5: Improve new-frame logic of windmove-display-in-direction
From: |
Juri Linkov |
Subject: |
master a98c8f5: Improve new-frame logic of windmove-display-in-direction (bug#39875) |
Date: |
Mon, 9 Mar 2020 19:39:12 -0400 (EDT) |
branch: master
commit a98c8f5a098cf646c282be67cce9fb7999d353d7
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>
Improve new-frame logic of windmove-display-in-direction (bug#39875)
* lisp/windmove.el (windmove-display-in-direction):
For frame-based logic use code similar to display-buffer-pop-up-frame.
---
lisp/windmove.el | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/lisp/windmove.el b/lisp/windmove.el
index 94d2b75..f963831 100644
--- a/lisp/windmove.el
+++ b/lisp/windmove.el
@@ -475,10 +475,14 @@ When `switch-to-buffer-obey-display-actions' is non-nil,
(setq type 'tab)
(selected-window))
((eq dir 'new-frame)
- (window--maybe-raise-frame
- (make-frame-on-current-monitor
pop-up-frame-alist))
- (setq type 'frame)
- (selected-window))
+ (let* ((params (cdr (assq
'pop-up-frame-parameters alist)))
+ (pop-up-frame-alist (append
params pop-up-frame-alist))
+ (frame
(make-frame-on-current-monitor
+ pop-up-frame-alist)))
+ (unless (cdr (assq
'inhibit-switch-frame alist))
+ (window--maybe-raise-frame frame))
+ (setq type 'frame)
+ (frame-selected-window frame)))
((eq dir 'same-window)
(selected-window))
(t (window-in-direction
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master a98c8f5: Improve new-frame logic of windmove-display-in-direction (bug#39875),
Juri Linkov <=