Mercurial > emacs
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)) |