diff options
| author | Paul Eggert | 2011-04-15 00:48:51 -0700 |
|---|---|---|
| committer | Paul Eggert | 2011-04-15 00:48:51 -0700 |
| commit | 4170f62f39edf1ff1e99aec9bfbfe7bbf10e7fc9 (patch) | |
| tree | e993b231bb5555c9c961f5d0b20d90ac76f77bbd /src/frame.c | |
| parent | 1963a2e0bb07cc8dee6d27f972f93d9cfd7c6b2d (diff) | |
| parent | 49093f601b69d91126aefd328ee8f6bfeb797407 (diff) | |
| download | emacs-4170f62f39edf1ff1e99aec9bfbfe7bbf10e7fc9.tar.gz emacs-4170f62f39edf1ff1e99aec9bfbfe7bbf10e7fc9.zip | |
Merge from mainline.
Diffstat (limited to 'src/frame.c')
| -rw-r--r-- | src/frame.c | 56 |
1 files changed, 21 insertions, 35 deletions
diff --git a/src/frame.c b/src/frame.c index 1b6d36092ae..cafcd149503 100644 --- a/src/frame.c +++ b/src/frame.c | |||
| @@ -69,10 +69,10 @@ Lisp_Object Qonly; | |||
| 69 | Lisp_Object Qx, Qw32, Qmac, Qpc, Qns; | 69 | Lisp_Object Qx, Qw32, Qmac, Qpc, Qns; |
| 70 | Lisp_Object Qvisible; | 70 | Lisp_Object Qvisible; |
| 71 | Lisp_Object Qdisplay_type; | 71 | Lisp_Object Qdisplay_type; |
| 72 | Lisp_Object Qbackground_mode; | 72 | static Lisp_Object Qbackground_mode; |
| 73 | Lisp_Object Qnoelisp; | 73 | Lisp_Object Qnoelisp; |
| 74 | 74 | ||
| 75 | Lisp_Object Qx_frame_parameter; | 75 | static Lisp_Object Qx_frame_parameter; |
| 76 | Lisp_Object Qx_resource_name; | 76 | Lisp_Object Qx_resource_name; |
| 77 | Lisp_Object Qterminal; | 77 | Lisp_Object Qterminal; |
| 78 | Lisp_Object Qterminal_live_p; | 78 | Lisp_Object Qterminal_live_p; |
| @@ -82,7 +82,7 @@ Lisp_Object Qterminal_live_p; | |||
| 82 | Lisp_Object Qauto_raise, Qauto_lower; | 82 | Lisp_Object Qauto_raise, Qauto_lower; |
| 83 | Lisp_Object Qborder_color, Qborder_width; | 83 | Lisp_Object Qborder_color, Qborder_width; |
| 84 | Lisp_Object Qcursor_color, Qcursor_type; | 84 | Lisp_Object Qcursor_color, Qcursor_type; |
| 85 | Lisp_Object Qgeometry; /* Not used */ | 85 | static Lisp_Object Qgeometry; /* Not used */ |
| 86 | Lisp_Object Qheight, Qwidth; | 86 | Lisp_Object Qheight, Qwidth; |
| 87 | Lisp_Object Qleft, Qright; | 87 | Lisp_Object Qleft, Qright; |
| 88 | Lisp_Object Qicon_left, Qicon_top, Qicon_type, Qicon_name; | 88 | Lisp_Object Qicon_left, Qicon_top, Qicon_type, Qicon_name; |
| @@ -95,19 +95,20 @@ Lisp_Object Qvisibility; | |||
| 95 | Lisp_Object Qscroll_bar_foreground, Qscroll_bar_background; | 95 | Lisp_Object Qscroll_bar_foreground, Qscroll_bar_background; |
| 96 | Lisp_Object Qscreen_gamma; | 96 | Lisp_Object Qscreen_gamma; |
| 97 | Lisp_Object Qline_spacing; | 97 | Lisp_Object Qline_spacing; |
| 98 | Lisp_Object Quser_position, Quser_size; | 98 | static Lisp_Object Quser_position, Quser_size; |
| 99 | Lisp_Object Qwait_for_wm; | 99 | Lisp_Object Qwait_for_wm; |
| 100 | Lisp_Object Qwindow_id; | 100 | static Lisp_Object Qwindow_id; |
| 101 | #ifdef HAVE_X_WINDOWS | 101 | #ifdef HAVE_X_WINDOWS |
| 102 | Lisp_Object Qouter_window_id; | 102 | static Lisp_Object Qouter_window_id; |
| 103 | #endif | 103 | #endif |
| 104 | Lisp_Object Qparent_id; | 104 | Lisp_Object Qparent_id; |
| 105 | Lisp_Object Qtitle, Qname; | 105 | Lisp_Object Qtitle, Qname; |
| 106 | Lisp_Object Qexplicit_name; | 106 | static Lisp_Object Qexplicit_name; |
| 107 | Lisp_Object Qunsplittable; | 107 | Lisp_Object Qunsplittable; |
| 108 | Lisp_Object Qmenu_bar_lines, Qtool_bar_lines, Qtool_bar_position; | 108 | Lisp_Object Qmenu_bar_lines, Qtool_bar_lines, Qtool_bar_position; |
| 109 | Lisp_Object Qleft_fringe, Qright_fringe; | 109 | Lisp_Object Qleft_fringe, Qright_fringe; |
| 110 | Lisp_Object Qbuffer_predicate, Qbuffer_list, Qburied_buffer_list; | 110 | Lisp_Object Qbuffer_predicate; |
| 111 | static Lisp_Object Qbuffer_list, Qburied_buffer_list; | ||
| 111 | Lisp_Object Qtty_color_mode; | 112 | Lisp_Object Qtty_color_mode; |
| 112 | Lisp_Object Qtty, Qtty_type; | 113 | Lisp_Object Qtty, Qtty_type; |
| 113 | 114 | ||
| @@ -120,6 +121,10 @@ Lisp_Object Qface_set_after_frame_default; | |||
| 120 | 121 | ||
| 121 | static Lisp_Object Qdelete_frame_functions; | 122 | static Lisp_Object Qdelete_frame_functions; |
| 122 | 123 | ||
| 124 | #ifdef HAVE_WINDOW_SYSTEM | ||
| 125 | static void x_report_frame_params (struct frame *, Lisp_Object *); | ||
| 126 | #endif | ||
| 127 | |||
| 123 | 128 | ||
| 124 | static void | 129 | static void |
| 125 | set_menu_bar_lines_1 (Lisp_Object window, int n) | 130 | set_menu_bar_lines_1 (Lisp_Object window, int n) |
| @@ -548,7 +553,7 @@ make_initial_frame (void) | |||
| 548 | } | 553 | } |
| 549 | 554 | ||
| 550 | 555 | ||
| 551 | struct frame * | 556 | static struct frame * |
| 552 | make_terminal_frame (struct terminal *terminal) | 557 | make_terminal_frame (struct terminal *terminal) |
| 553 | { | 558 | { |
| 554 | register struct frame *f; | 559 | register struct frame *f; |
| @@ -2077,6 +2082,9 @@ See `redirect-frame-focus'. */) | |||
| 2077 | 2082 | ||
| 2078 | /* Return the value of frame parameter PROP in frame FRAME. */ | 2083 | /* Return the value of frame parameter PROP in frame FRAME. */ |
| 2079 | 2084 | ||
| 2085 | #if !HAVE_NS | ||
| 2086 | static | ||
| 2087 | #endif | ||
| 2080 | Lisp_Object | 2088 | Lisp_Object |
| 2081 | get_frame_param (register struct frame *frame, Lisp_Object prop) | 2089 | get_frame_param (register struct frame *frame, Lisp_Object prop) |
| 2082 | { | 2090 | { |
| @@ -2832,7 +2840,7 @@ static const struct frame_parm_table frame_parms[] = | |||
| 2832 | {"tool-bar-position", &Qtool_bar_position}, | 2840 | {"tool-bar-position", &Qtool_bar_position}, |
| 2833 | }; | 2841 | }; |
| 2834 | 2842 | ||
| 2835 | #ifdef HAVE_WINDOW_SYSTEM | 2843 | #ifdef WINDOWSNT |
| 2836 | 2844 | ||
| 2837 | /* Calculate fullscreen size. Return in *TOP_POS and *LEFT_POS the | 2845 | /* Calculate fullscreen size. Return in *TOP_POS and *LEFT_POS the |
| 2838 | wanted positions of the WM window (not Emacs window). | 2846 | wanted positions of the WM window (not Emacs window). |
| @@ -2876,6 +2884,9 @@ x_fullscreen_adjust (struct frame *f, int *width, int *height, int *top_pos, int | |||
| 2876 | *height = newheight; | 2884 | *height = newheight; |
| 2877 | } | 2885 | } |
| 2878 | 2886 | ||
| 2887 | #endif /* WINDOWSNT */ | ||
| 2888 | |||
| 2889 | #ifdef HAVE_WINDOW_SYSTEM | ||
| 2879 | 2890 | ||
| 2880 | /* Change the parameters of frame F as specified by ALIST. | 2891 | /* Change the parameters of frame F as specified by ALIST. |
| 2881 | If a parameter is not specially recognized, do nothing special; | 2892 | If a parameter is not specially recognized, do nothing special; |
| @@ -3834,31 +3845,6 @@ display_x_get_resource (Display_Info *dpyinfo, Lisp_Object attribute, Lisp_Objec | |||
| 3834 | attribute, class, component, subclass); | 3845 | attribute, class, component, subclass); |
| 3835 | } | 3846 | } |
| 3836 | 3847 | ||
| 3837 | #if defined HAVE_X_WINDOWS && !defined USE_X_TOOLKIT | ||
| 3838 | /* Used when C code wants a resource value. */ | ||
| 3839 | /* Called from oldXMenu/Create.c. */ | ||
| 3840 | char * | ||
| 3841 | x_get_resource_string (const char *attribute, const char *class) | ||
| 3842 | { | ||
| 3843 | char *name_key; | ||
| 3844 | char *class_key; | ||
| 3845 | struct frame *sf = SELECTED_FRAME (); | ||
| 3846 | |||
| 3847 | /* Allocate space for the components, the dots which separate them, | ||
| 3848 | and the final '\0'. */ | ||
| 3849 | name_key = (char *) alloca (SBYTES (Vinvocation_name) | ||
| 3850 | + strlen (attribute) + 2); | ||
| 3851 | class_key = (char *) alloca ((sizeof (EMACS_CLASS) - 1) | ||
| 3852 | + strlen (class) + 2); | ||
| 3853 | |||
| 3854 | sprintf (name_key, "%s.%s", SDATA (Vinvocation_name), attribute); | ||
| 3855 | sprintf (class_key, "%s.%s", EMACS_CLASS, class); | ||
| 3856 | |||
| 3857 | return x_get_string_resource (FRAME_X_DISPLAY_INFO (sf)->xrdb, | ||
| 3858 | name_key, class_key); | ||
| 3859 | } | ||
| 3860 | #endif | ||
| 3861 | |||
| 3862 | /* Return the value of parameter PARAM. | 3848 | /* Return the value of parameter PARAM. |
| 3863 | 3849 | ||
| 3864 | First search ALIST, then Vdefault_frame_alist, then the X defaults | 3850 | First search ALIST, then Vdefault_frame_alist, then the X defaults |