comparison src/frame.c @ 12630:071cf90b866a

(do_switch_frame): Don't call choose_minibuffer_frame. (choose_minibuf_frame): Choose frame regardless of minibuffer level.
author Richard M. Stallman <rms@gnu.org>
date Fri, 21 Jul 1995 07:50:21 +0000
parents 2c09b3adbb90
children a3466dad7d6d
comparison
equal deleted inserted replaced
12629:55241c80f448 12630:071cf90b866a
486 selected_frame = XFRAME (frame); 486 selected_frame = XFRAME (frame);
487 if (! FRAME_MINIBUF_ONLY_P (selected_frame)) 487 if (! FRAME_MINIBUF_ONLY_P (selected_frame))
488 last_nonminibuf_frame = selected_frame; 488 last_nonminibuf_frame = selected_frame;
489 489
490 Fselect_window (XFRAME (frame)->selected_window); 490 Fselect_window (XFRAME (frame)->selected_window);
491 choose_minibuf_frame ();
492 491
493 /* We want to make sure that the next event generates a frame-switch 492 /* We want to make sure that the next event generates a frame-switch
494 event to the appropriate frame. This seems kludgy to me, but 493 event to the appropriate frame. This seems kludgy to me, but
495 before you take it out, make sure that evaluating something like 494 before you take it out, make sure that evaluating something like
496 (select-window (frame-root-window (new-frame))) doesn't end up 495 (select-window (frame-root-window (new-frame))) doesn't end up
1873 1872
1874 return Qt; 1873 return Qt;
1875 } 1874 }
1876 1875
1877 1876
1877 /* Put minibuf on currently selected frame's minibuffer.
1878 We do this whenever the user starts a new minibuffer
1879 or when a minibuffer exits. */
1880
1878 choose_minibuf_frame () 1881 choose_minibuf_frame ()
1879 { 1882 {
1880 /* For lowest-level minibuf, put it on currently selected frame 1883 if (selected_frame != 0
1881 if frame has a minibuffer. */
1882
1883 if (minibuf_level == 0
1884 && selected_frame != 0
1885 && !EQ (minibuf_window, selected_frame->minibuffer_window)) 1884 && !EQ (minibuf_window, selected_frame->minibuffer_window))
1886 { 1885 {
1887 /* I don't think that any frames may validly have a null minibuffer 1886 /* I don't think that any frames may validly have a null minibuffer
1888 window anymore. */ 1887 window anymore. */
1889 if (NILP (selected_frame->minibuffer_window)) 1888 if (NILP (selected_frame->minibuffer_window))