[Emacs-diffs] Changes to emacs/lisp/startup.el

[Glenn Morris]

Index: emacs/lisp/startup.el
diff -c emacs/lisp/startup.el:1.302 emacs/lisp/startup.el:1.303
*** emacs/lisp/startup.el:1.302 Sun Jul 14 11:29:56 2002
--- emacs/lisp/startup.el       Sun Aug  4 12:18:18 2002
***************
*** 1306,1312 ****
  use the fancy splash screen, but if we do use it,
  we put it on this frame."
    (let (chosen-frame)
!     (dolist (frame (frame-list))
        (if (and (frame-visible-p frame)
               (not (window-minibuffer-p (frame-selected-window frame))))
          (setq chosen-frame frame)))
--- 1306,1312 ----
  use the fancy splash screen, but if we do use it,
  we put it on this frame."
    (let (chosen-frame)
!     (dolist (frame (append (frame-list) (list (selected-frame))))
        (if (and (frame-visible-p frame)
               (not (window-minibuffer-p (frame-selected-window frame))))
          (setq chosen-frame frame)))