/[emacs]/emacs/lisp/startup.el
ViewVC logotype

Diff of /emacs/lisp/startup.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.302 by rms, Sun Jul 14 15:29:56 2002 UTC revision 1.303 by gm, Sun Aug 4 16:18:18 2002 UTC
# Line 1306  Returning non-nil does not mean we shoul Line 1306  Returning non-nil does not mean we shoul
1306  use the fancy splash screen, but if we do use it,  use the fancy splash screen, but if we do use it,
1307  we put it on this frame."  we put it on this frame."
1308    (let (chosen-frame)    (let (chosen-frame)
1309      (dolist (frame (frame-list))      (dolist (frame (append (frame-list) (list (selected-frame))))
1310        (if (and (frame-visible-p frame)        (if (and (frame-visible-p frame)
1311                 (not (window-minibuffer-p (frame-selected-window frame))))                 (not (window-minibuffer-p (frame-selected-window frame))))
1312            (setq chosen-frame frame)))            (setq chosen-frame frame)))

Legend:
Removed from v.1.302  
changed lines
  Added in v.1.303

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26