Mercurial > emacs
comparison src/xdisp.c @ 1124:453c24f2bdaa
* xdisp.c (display_mode_line): If the only other frames are
minibuffer frames, don't name the frame after the in the selected
window. We can use Fnext_frame to do this test easily.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Sun, 13 Sep 1992 12:45:33 +0000 |
parents | d42877206c0a |
children | 37b3c2981b40 |
comparison
equal
deleted
inserted
replaced
1123:55e605674fb1 | 1124:453c24f2bdaa |
---|---|
1774 || XFASTINT (XWINDOW (w->parent)->width) == FRAME_WIDTH (f)) | 1774 || XFASTINT (XWINDOW (w->parent)->width) == FRAME_WIDTH (f)) |
1775 FRAME_DESIRED_GLYPHS (f)->highlight[vpos] = mode_line_inverse_video; | 1775 FRAME_DESIRED_GLYPHS (f)->highlight[vpos] = mode_line_inverse_video; |
1776 | 1776 |
1777 #ifdef HAVE_X_WINDOWS | 1777 #ifdef HAVE_X_WINDOWS |
1778 /* I'm trying this out because I saw Unimpress use it, but it's | 1778 /* I'm trying this out because I saw Unimpress use it, but it's |
1779 possible that this may mess adversely with some window managers. jla */ | 1779 possible that this may mess adversely with some window managers. -jla |
1780 | 1780 |
1781 Wouldn't it be nice to use something like mode-line-format to | |
1782 describe frame titles? -JimB */ | |
1783 | |
1784 /* Change the title of the frame to the name of the buffer displayed | |
1785 in the currently selected window. Don't do this for minibuffer frames, | |
1786 and don't do it when there's only one non-minibuffer frame. */ | |
1781 if (FRAME_X_P (f) | 1787 if (FRAME_X_P (f) |
1782 && ! FRAME_MINIBUF_ONLY_P (f) | 1788 && ! FRAME_MINIBUF_ONLY_P (f) |
1783 && w == XWINDOW (f->selected_window)) | 1789 && w == XWINDOW (f->selected_window)) |
1784 x_implicitly_set_name (f, ((XINT (Flength (Vframe_list)) > 1) | 1790 x_implicitly_set_name (f, (EQ (Fnext_frame (WINDOW_FRAME (w), Qnil), |
1785 ? XBUFFER (w->buffer)->name | 1791 WINDOW_FRAME (w)) |
1786 : Qnil), | 1792 ? Qnil |
1793 : XBUFFER (w->buffer)->name), | |
1787 Qnil); | 1794 Qnil); |
1788 #endif | 1795 #endif |
1789 } | 1796 } |
1790 | 1797 |
1791 /* Contribute ELT to the mode line for window W. | 1798 /* Contribute ELT to the mode line for window W. |