[elpa] externals/idlwave 90e7e8948a 325/360: Select frame list from only those on display.

[ELPA Syncer]

branch: externals/idlwave
commit 90e7e8948a087f7c1789ebda3dcc837b48eb8121
Author: JD Smith <jdtsmith@gmail.com>
Commit: JD Smith <jdtsmith@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))))