114 |
|
|
115 |
Lisp_Object Vterminal_frame; |
Lisp_Object Vterminal_frame; |
116 |
Lisp_Object Vdefault_frame_alist; |
Lisp_Object Vdefault_frame_alist; |
117 |
|
Lisp_Object Vdefault_frame_scroll_bars; |
118 |
Lisp_Object Vmouse_position_function; |
Lisp_Object Vmouse_position_function; |
119 |
Lisp_Object Vmouse_highlight; |
Lisp_Object Vmouse_highlight; |
120 |
Lisp_Object Vdelete_frame_functions; |
Lisp_Object Vdelete_frame_functions; |
3218 |
? vertical_scroll_bar_left |
? vertical_scroll_bar_left |
3219 |
: EQ (Qright, arg) |
: EQ (Qright, arg) |
3220 |
? vertical_scroll_bar_right |
? vertical_scroll_bar_right |
3221 |
#ifdef HAVE_NTGUI |
: EQ (Qleft, Vdefault_frame_scroll_bars) |
3222 |
/* MS-Windows has scroll bars on the right by default. */ |
? vertical_scroll_bar_left |
3223 |
: vertical_scroll_bar_right |
: EQ (Qright, Vdefault_frame_scroll_bars) |
3224 |
#else |
? vertical_scroll_bar_right |
3225 |
: vertical_scroll_bar_left |
: vertical_scroll_bar_none); |
|
#endif |
|
|
); |
|
3226 |
|
|
3227 |
/* We set this parameter before creating the X window for the |
/* We set this parameter before creating the X window for the |
3228 |
frame, so we can get the geometry right from the start. |
frame, so we can get the geometry right from the start. |
4031 |
Setting this variable does not affect existing frames, only new ones. */); |
Setting this variable does not affect existing frames, only new ones. */); |
4032 |
Vdefault_frame_alist = Qnil; |
Vdefault_frame_alist = Qnil; |
4033 |
|
|
4034 |
|
DEFVAR_LISP ("default-frame-scroll-bars", &Vdefault_frame_scroll_bars, |
4035 |
|
doc: /* Default position of scroll bars on this window-system. */); |
4036 |
|
#ifdef HAVE_WINDOW_SYSTEM |
4037 |
|
#if defined(HAVE_NTGUI) || defined(HAVE_CARBON) |
4038 |
|
/* MS-Windows has scroll bars on the right by default. */ |
4039 |
|
Vdefault_frame_scroll_bars = Qright; |
4040 |
|
#else |
4041 |
|
Vdefault_frame_scroll_bars = Qleft; |
4042 |
|
#endif |
4043 |
|
#else |
4044 |
|
Vdefault_frame_scroll_bars = Qnil; |
4045 |
|
#endif |
4046 |
|
|
4047 |
Qinhibit_default_face_x_resources |
Qinhibit_default_face_x_resources |
4048 |
= intern ("inhibit-default-face-x-resources"); |
= intern ("inhibit-default-face-x-resources"); |
4049 |
staticpro (&Qinhibit_default_face_x_resources); |
staticpro (&Qinhibit_default_face_x_resources); |