branch: externals/idlwave
commit 90e7e8948a087f7c1789ebda3dcc837b48eb8121
Author: JD Smith <jdtsm...@gmail.com>
Commit: JD Smith <jdtsm...@gmail.com>
Select frame list from only those on display.
Target frame for source when debugging gets set to a hidden
frame (e.g. from the emacs server).
---
idlw-shell.el | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/idlw-shell.el b/idlw-shell.el
index ee9ba5c412..ddeb552b07 100644
--- a/idlw-shell.el
+++ b/idlw-shell.el
@@ -1155,7 +1155,7 @@ Will typically only apply if the buffer isn't visible."
(setq idlwave-shell-display-wframe
(if (eq (selected-frame) idlwave-shell-idl-wframe)
(or
- (let ((flist (visible-frame-list))
+ (let ((flist (frames-on-display-list))
(frame (selected-frame)))
(catch 'exit
(while flist
@@ -3427,8 +3427,7 @@ Does not work for a region with multiline blocks - use
"Display a buffer in a requested (optional) FRAME.
Resize to no more than BUFFER-HEIGHT-FRAC of the frame buffer if set."
(save-selected-window
- (if frame (select-frame frame))
- (let ((win (display-buffer buf not-this-window-p t)))
+ (let ((win (display-buffer buf not-this-window-p frame)))
(if buffer-height-frac
(set-window-text-height win (round (* (frame-height frame)
buffer-height-frac))))
