Mercurial > emacs
comparison src/xdisp.c @ 11920:d7c32bcc6cc5
(prepare_menu_bars): Update frame titles before menu bars.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Thu, 25 May 1995 17:06:56 +0000 |
parents | 562835b19067 |
children | 19ebc17d1288 |
comparison
equal
deleted
inserted
replaced
11919:31cb053405f2 | 11920:d7c32bcc6cc5 |
---|---|
675 struct gcpro gcpro1, gcpro2; | 675 struct gcpro gcpro1, gcpro2; |
676 | 676 |
677 all_windows = (update_mode_lines || buffer_shared > 1 | 677 all_windows = (update_mode_lines || buffer_shared > 1 |
678 || clip_changed || windows_or_buffers_changed); | 678 || clip_changed || windows_or_buffers_changed); |
679 | 679 |
680 /* Update all frame titles based on their buffer names, etc. | |
681 We do this before the menu bars so that the buffer-menu | |
682 will show the up-to-date frame titles. | |
683 | |
684 This used to be done after the menu bars, for a reason that | |
685 was stated as follows but which I do not understand: | |
686 "We do this after the menu bars so that the frame will first | |
687 create its menu bar using the name `emacs' if no other name | |
688 has yet been specified." | |
689 I think that is no longer a concern. */ | |
690 #ifdef HAVE_X_WINDOWS | |
691 if (windows_or_buffers_changed) | |
692 { | |
693 Lisp_Object tail, frame; | |
694 | |
695 FOR_EACH_FRAME (tail, frame) | |
696 if (FRAME_VISIBLE_P (XFRAME (frame)) | |
697 || FRAME_ICONIFIED_P (XFRAME (frame))) | |
698 x_consider_frame_title (frame); | |
699 } | |
700 #endif | |
701 | |
680 /* Update the menu bar item lists, if appropriate. | 702 /* Update the menu bar item lists, if appropriate. |
681 This has to be done before any actual redisplay | 703 This has to be done before any actual redisplay |
682 or generation of display lines. */ | 704 or generation of display lines. */ |
683 if (all_windows) | 705 if (all_windows) |
684 { | 706 { |
712 | 734 |
713 unbind_to (count, Qnil); | 735 unbind_to (count, Qnil); |
714 } | 736 } |
715 else | 737 else |
716 update_menu_bar (selected_frame, 1); | 738 update_menu_bar (selected_frame, 1); |
717 | |
718 /* Update all frame titles based on their buffer names, etc. | |
719 We do this after the menu bars so that the frame will first | |
720 create its menu bar using the name `emacs' if no other name | |
721 has yet been specified. */ | |
722 #ifdef HAVE_X_WINDOWS | |
723 if (windows_or_buffers_changed) | |
724 { | |
725 Lisp_Object tail, frame; | |
726 | |
727 FOR_EACH_FRAME (tail, frame) | |
728 if (FRAME_VISIBLE_P (XFRAME (frame)) | |
729 || FRAME_ICONIFIED_P (XFRAME (frame))) | |
730 x_consider_frame_title (frame); | |
731 } | |
732 #endif | |
733 } | 739 } |
734 | 740 |
735 /* Do a frame update, taking possible shortcuts into account. | 741 /* Do a frame update, taking possible shortcuts into account. |
736 This is the main external entry point for redisplay. | 742 This is the main external entry point for redisplay. |
737 | 743 |