/[emacs]/emacs/src/w32term.c
ViewVC logotype

Diff of /emacs/src/w32term.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.123 by jasonr, Wed Nov 7 21:11:00 2001 UTC revision 1.124 by jasonr, Mon Nov 12 23:57:09 2001 UTC
# Line 10925  syms_of_w32term () Line 10925  syms_of_w32term ()
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;
# Line 10975  affect on NT machines."); Line 10975  affect on NT machines.");
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);

Legend:
Removed from v.1.123  
changed lines
  Added in v.1.124

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26