10925 |
|
|
10926 |
DEFVAR_INT ("w32-num-mouse-buttons", |
DEFVAR_INT ("w32-num-mouse-buttons", |
10927 |
&Vw32_num_mouse_buttons, |
&Vw32_num_mouse_buttons, |
10928 |
"Number of physical mouse buttons."); |
doc: /* Number of physical mouse buttons. */); |
10929 |
Vw32_num_mouse_buttons = Qnil; |
Vw32_num_mouse_buttons = Qnil; |
10930 |
|
|
10931 |
DEFVAR_LISP ("w32-swap-mouse-buttons", |
DEFVAR_LISP ("w32-swap-mouse-buttons", |
10932 |
&Vw32_swap_mouse_buttons, |
&Vw32_swap_mouse_buttons, |
10933 |
"Swap the mapping of middle and right mouse buttons.\n\ |
doc: /* Swap the mapping of middle and right mouse buttons. |
10934 |
When nil, middle button is mouse-2 and right button is mouse-3."); |
When nil, middle button is mouse-2 and right button is mouse-3. */); |
10935 |
Vw32_swap_mouse_buttons = Qnil; |
Vw32_swap_mouse_buttons = Qnil; |
10936 |
|
|
10937 |
DEFVAR_LISP ("w32-grab-focus-on-raise", |
DEFVAR_LISP ("w32-grab-focus-on-raise", |
10938 |
&Vw32_grab_focus_on_raise, |
&Vw32_grab_focus_on_raise, |
10939 |
"Raised frame grabs input focus.\n\ |
doc: /* Raised frame grabs input focus. |
10940 |
When t, `raise-frame' grabs input focus as well. This fits well\n\ |
When t, `raise-frame' grabs input focus as well. This fits well |
10941 |
with the normal Windows click-to-focus policy, but might not be\n\ |
with the normal Windows click-to-focus policy, but might not be |
10942 |
desirable when using a point-to-focus policy."); |
desirable when using a point-to-focus policy. */); |
10943 |
Vw32_grab_focus_on_raise = Qt; |
Vw32_grab_focus_on_raise = Qt; |
10944 |
|
|
10945 |
DEFVAR_LISP ("w32-capslock-is-shiftlock", |
DEFVAR_LISP ("w32-capslock-is-shiftlock", |
10946 |
&Vw32_capslock_is_shiftlock, |
&Vw32_capslock_is_shiftlock, |
10947 |
"Apply CapsLock state to non character input keys.\n\ |
doc: /* Apply CapsLock state to non character input keys. |
10948 |
When nil, CapsLock only affects normal character input keys."); |
When nil, CapsLock only affects normal character input keys. */); |
10949 |
Vw32_capslock_is_shiftlock = Qnil; |
Vw32_capslock_is_shiftlock = Qnil; |
10950 |
|
|
10951 |
DEFVAR_LISP ("w32-recognize-altgr", |
DEFVAR_LISP ("w32-recognize-altgr", |
10952 |
&Vw32_recognize_altgr, |
&Vw32_recognize_altgr, |
10953 |
"Recognize right-alt and left-ctrl as AltGr.\n\ |
doc: /* Recognize right-alt and left-ctrl as AltGr. |
10954 |
When nil, the right-alt and left-ctrl key combination is\n\ |
When nil, the right-alt and left-ctrl key combination is |
10955 |
interpreted normally."); |
interpreted normally. */); |
10956 |
Vw32_recognize_altgr = Qt; |
Vw32_recognize_altgr = Qt; |
10957 |
|
|
10958 |
DEFVAR_BOOL ("w32-enable-unicode-output", |
DEFVAR_BOOL ("w32-enable-unicode-output", |
10959 |
&w32_enable_unicode_output, |
&w32_enable_unicode_output, |
10960 |
"Enable the use of Unicode for text output if non-nil.\n\ |
doc: /* Enable the use of Unicode for text output if non-nil. |
10961 |
Unicode output may prevent some third party applications for displaying\n\ |
Unicode output may prevent some third party applications for displaying |
10962 |
Far-East Languages on Windows 95/98 from working properly.\n\ |
Far-East Languages on Windows 95/98 from working properly. |
10963 |
NT uses Unicode internally anyway, so this flag will probably have no\n\ |
NT uses Unicode internally anyway, so this flag will probably have no |
10964 |
affect on NT machines."); |
affect on NT machines. */); |
10965 |
w32_enable_unicode_output = 1; |
w32_enable_unicode_output = 1; |
10966 |
|
|
10967 |
help_echo = Qnil; |
help_echo = Qnil; |
10975 |
help_echo_pos = -1; |
help_echo_pos = -1; |
10976 |
|
|
10977 |
DEFVAR_BOOL ("x-stretch-cursor", &x_stretch_cursor_p, |
DEFVAR_BOOL ("x-stretch-cursor", &x_stretch_cursor_p, |
10978 |
"*Non-nil means draw block cursor as wide as the glyph under it.\n\ |
doc: /* *Non-nil means draw block cursor as wide as the glyph under it. |
10979 |
For example, if a block cursor is over a tab, it will be drawn as\n\ |
For example, if a block cursor is over a tab, it will be drawn as |
10980 |
wide as that tab on the display."); |
wide as that tab on the display. */); |
10981 |
x_stretch_cursor_p = 0; |
x_stretch_cursor_p = 0; |
10982 |
|
|
10983 |
#if 0 /* TODO: Setting underline position from font properties. */ |
#if 0 /* TODO: Setting underline position from font properties. */ |
10984 |
DEFVAR_BOOL ("x-use-underline-position-properties", |
DEFVAR_BOOL ("x-use-underline-position-properties", |
10985 |
&x_use_underline_position_properties, |
&x_use_underline_position_properties, |
10986 |
"*Non-nil means make use of UNDERLINE_POSITION font properties.\n\ |
doc: /* *Non-nil means make use of UNDERLINE_POSITION font properties. |
10987 |
Nil means ignore them. If you encounter fonts with bogus\n\ |
Nil means ignore them. If you encounter fonts with bogus |
10988 |
UNDERLINE_POSITION font properties, for example 7x13 on XFree prior\n\ |
UNDERLINE_POSITION font properties, for example 7x13 on XFree prior |
10989 |
to 4.1, set this to nil."); |
to 4.1, set this to nil. */); |
10990 |
x_use_underline_position_properties = 1; |
x_use_underline_position_properties = 1; |
10991 |
#endif |
#endif |
10992 |
|
|
10993 |
DEFVAR_LISP ("x-toolkit-scroll-bars", &Vx_toolkit_scroll_bars, |
DEFVAR_LISP ("x-toolkit-scroll-bars", &Vx_toolkit_scroll_bars, |
10994 |
"If not nil, Emacs uses toolkit scroll bars."); |
doc: /* If not nil, Emacs uses toolkit scroll bars. */); |
10995 |
Vx_toolkit_scroll_bars = Qt; |
Vx_toolkit_scroll_bars = Qt; |
10996 |
|
|
10997 |
staticpro (&last_mouse_motion_frame); |
staticpro (&last_mouse_motion_frame); |