diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 8 | ||||
| -rw-r--r-- | src/w32fns.c | 61 |
2 files changed, 48 insertions, 21 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index fe2f34c2038..d18af16876f 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -1,3 +1,11 @@ | |||
| 1 | 2006-09-24 Eli Zaretskii <eliz@gnu.org> | ||
| 2 | |||
| 3 | * w32fns.c (w32-pass-alt-to-system, w32-alt-is-meta) | ||
| 4 | (w32-pass-lwindow-to-system, w32-enable-num-lock) | ||
| 5 | (w32-enable-caps-lock, w32-scroll-lock-modifier) | ||
| 6 | (w32-lwindow-modifier, w32-rwindow-modifier) | ||
| 7 | (w32-apps-modifier, w32-mouse-button-tolerance): Doc fix. | ||
| 8 | |||
| 1 | 2006-09-23 Juanma Barranquero <lekktu@gmail.com> | 9 | 2006-09-23 Juanma Barranquero <lekktu@gmail.com> |
| 2 | 10 | ||
| 3 | * minibuf.c (Finternal_complete_buffer, Fread_minibuffer) | 11 | * minibuf.c (Finternal_complete_buffer, Fread_minibuffer) |
diff --git a/src/w32fns.c b/src/w32fns.c index 8c6a60d47bf..4f07817b566 100644 --- a/src/w32fns.c +++ b/src/w32fns.c | |||
| @@ -8609,14 +8609,15 @@ syms_of_w32fns () | |||
| 8609 | Vw32_color_map = Qnil; | 8609 | Vw32_color_map = Qnil; |
| 8610 | 8610 | ||
| 8611 | DEFVAR_LISP ("w32-pass-alt-to-system", &Vw32_pass_alt_to_system, | 8611 | DEFVAR_LISP ("w32-pass-alt-to-system", &Vw32_pass_alt_to_system, |
| 8612 | doc: /* Non-nil if alt key presses are passed on to Windows. | 8612 | doc: /* Non-nil if Alt key presses are passed on to Windows. |
| 8613 | When non-nil, for example, alt pressed and released and then space will | 8613 | When non-nil, for example, Alt pressed and released and then space will |
| 8614 | open the System menu. When nil, Emacs silently swallows alt key events. */); | 8614 | open the System menu. When nil, Emacs processes the Alt key events, and |
| 8615 | then silently swallows them. */); | ||
| 8615 | Vw32_pass_alt_to_system = Qnil; | 8616 | Vw32_pass_alt_to_system = Qnil; |
| 8616 | 8617 | ||
| 8617 | DEFVAR_LISP ("w32-alt-is-meta", &Vw32_alt_is_meta, | 8618 | DEFVAR_LISP ("w32-alt-is-meta", &Vw32_alt_is_meta, |
| 8618 | doc: /* Non-nil if the alt key is to be considered the same as the meta key. | 8619 | doc: /* Non-nil if the Alt key is to be considered the same as the META key. |
| 8619 | When nil, Emacs will translate the alt key to the Alt modifier, and not Meta. */); | 8620 | When nil, Emacs will translate the Alt key to the ALT modifier, not to META. */); |
| 8620 | Vw32_alt_is_meta = Qt; | 8621 | Vw32_alt_is_meta = Qt; |
| 8621 | 8622 | ||
| 8622 | DEFVAR_INT ("w32-quit-key", &w32_quit_key, | 8623 | DEFVAR_INT ("w32-quit-key", &w32_quit_key, |
| @@ -8625,14 +8626,32 @@ When nil, Emacs will translate the alt key to the Alt modifier, and not Meta. * | |||
| 8625 | 8626 | ||
| 8626 | DEFVAR_LISP ("w32-pass-lwindow-to-system", | 8627 | DEFVAR_LISP ("w32-pass-lwindow-to-system", |
| 8627 | &Vw32_pass_lwindow_to_system, | 8628 | &Vw32_pass_lwindow_to_system, |
| 8628 | doc: /* Non-nil if the left \"Windows\" key is passed on to Windows. | 8629 | doc: /* If non-nil, the left \"Windows\" key is passed on to Windows. |
| 8629 | When non-nil, the Start menu is opened by tapping the key. */); | 8630 | |
| 8631 | When non-nil, the Start menu is opened by tapping the key. | ||
| 8632 | If you set this to nil, the left \"Windows\" key is processed by Emacs | ||
| 8633 | according to the value of `w32-lwindow-modifier', which see. | ||
| 8634 | |||
| 8635 | Note that some combinations of the left \"Windows\" key with other keys are | ||
| 8636 | caught by Windows at low level, and so binding them in Emacs will have no | ||
| 8637 | effect. For example, <lwindow>-r always pops up the Windows Run dialog, | ||
| 8638 | <lwindow>-<Pause> pops up the "System Properties" dialog, etc. However, see | ||
| 8639 | the doc string of `w32-phantom-key-code'. */); | ||
| 8630 | Vw32_pass_lwindow_to_system = Qt; | 8640 | Vw32_pass_lwindow_to_system = Qt; |
| 8631 | 8641 | ||
| 8632 | DEFVAR_LISP ("w32-pass-rwindow-to-system", | 8642 | DEFVAR_LISP ("w32-pass-rwindow-to-system", |
| 8633 | &Vw32_pass_rwindow_to_system, | 8643 | &Vw32_pass_rwindow_to_system, |
| 8634 | doc: /* Non-nil if the right \"Windows\" key is passed on to Windows. | 8644 | doc: /* If non-nil, the right \"Windows\" key is passed on to Windows. |
| 8635 | When non-nil, the Start menu is opened by tapping the key. */); | 8645 | |
| 8646 | When non-nil, the Start menu is opened by tapping the key. | ||
| 8647 | If you set this to nil, the right \"Windows\" key is processed by Emacs | ||
| 8648 | according to the value of `w32-rwindow-modifier', which see. | ||
| 8649 | |||
| 8650 | Note that some combinations of the right \"Windows\" key with other keys are | ||
| 8651 | caught by Windows at low level, and so binding them in Emacs will have no | ||
| 8652 | effect. For example, <rwindow>-r always pops up the Windows Run dialog, | ||
| 8653 | <rwindow>-<Pause> pops up the "System Properties" dialog, etc. However, see | ||
| 8654 | the doc string of `w32-phantom-key-code'. */); | ||
| 8636 | Vw32_pass_rwindow_to_system = Qt; | 8655 | Vw32_pass_rwindow_to_system = Qt; |
| 8637 | 8656 | ||
| 8638 | DEFVAR_LISP ("w32-phantom-key-code", | 8657 | DEFVAR_LISP ("w32-phantom-key-code", |
| @@ -8649,29 +8668,29 @@ acting on \"Windows\" key events when `w32-pass-lwindow-to-system' or | |||
| 8649 | 8668 | ||
| 8650 | DEFVAR_LISP ("w32-enable-num-lock", | 8669 | DEFVAR_LISP ("w32-enable-num-lock", |
| 8651 | &Vw32_enable_num_lock, | 8670 | &Vw32_enable_num_lock, |
| 8652 | doc: /* Non-nil if Num Lock should act normally. | 8671 | doc: /* If non-nil, the Num Lock key acts normally. |
| 8653 | Set to nil to see Num Lock as the key `kp-numlock'. */); | 8672 | Set to nil to handle Num Lock as the `kp-numlock' key. */); |
| 8654 | Vw32_enable_num_lock = Qt; | 8673 | Vw32_enable_num_lock = Qt; |
| 8655 | 8674 | ||
| 8656 | DEFVAR_LISP ("w32-enable-caps-lock", | 8675 | DEFVAR_LISP ("w32-enable-caps-lock", |
| 8657 | &Vw32_enable_caps_lock, | 8676 | &Vw32_enable_caps_lock, |
| 8658 | doc: /* Non-nil if Caps Lock should act normally. | 8677 | doc: /* If non-nil, the Caps Lock key acts normally. |
| 8659 | Set to nil to see Caps Lock as the key `capslock'. */); | 8678 | Set to nil to handle Caps Lock as the `capslock' key. */); |
| 8660 | Vw32_enable_caps_lock = Qt; | 8679 | Vw32_enable_caps_lock = Qt; |
| 8661 | 8680 | ||
| 8662 | DEFVAR_LISP ("w32-scroll-lock-modifier", | 8681 | DEFVAR_LISP ("w32-scroll-lock-modifier", |
| 8663 | &Vw32_scroll_lock_modifier, | 8682 | &Vw32_scroll_lock_modifier, |
| 8664 | doc: /* Modifier to use for the Scroll Lock on state. | 8683 | doc: /* Modifier to use for the Scroll Lock ON state. |
| 8665 | The value can be hyper, super, meta, alt, control or shift for the | 8684 | The value can be hyper, super, meta, alt, control or shift for the |
| 8666 | respective modifier, or nil to see Scroll Lock as the key `scroll'. | 8685 | respective modifier, or nil to handle Scroll Lock as the `scroll' key. |
| 8667 | Any other value will cause the key to be ignored. */); | 8686 | Any other value will cause the Scroll Lock key to be ignored. */); |
| 8668 | Vw32_scroll_lock_modifier = Qt; | 8687 | Vw32_scroll_lock_modifier = Qt; |
| 8669 | 8688 | ||
| 8670 | DEFVAR_LISP ("w32-lwindow-modifier", | 8689 | DEFVAR_LISP ("w32-lwindow-modifier", |
| 8671 | &Vw32_lwindow_modifier, | 8690 | &Vw32_lwindow_modifier, |
| 8672 | doc: /* Modifier to use for the left \"Windows\" key. | 8691 | doc: /* Modifier to use for the left \"Windows\" key. |
| 8673 | The value can be hyper, super, meta, alt, control or shift for the | 8692 | The value can be hyper, super, meta, alt, control or shift for the |
| 8674 | respective modifier, or nil to appear as the key `lwindow'. | 8693 | respective modifier, or nil to appear as the `lwindow' key. |
| 8675 | Any other value will cause the key to be ignored. */); | 8694 | Any other value will cause the key to be ignored. */); |
| 8676 | Vw32_lwindow_modifier = Qnil; | 8695 | Vw32_lwindow_modifier = Qnil; |
| 8677 | 8696 | ||
| @@ -8679,7 +8698,7 @@ Any other value will cause the key to be ignored. */); | |||
| 8679 | &Vw32_rwindow_modifier, | 8698 | &Vw32_rwindow_modifier, |
| 8680 | doc: /* Modifier to use for the right \"Windows\" key. | 8699 | doc: /* Modifier to use for the right \"Windows\" key. |
| 8681 | The value can be hyper, super, meta, alt, control or shift for the | 8700 | The value can be hyper, super, meta, alt, control or shift for the |
| 8682 | respective modifier, or nil to appear as the key `rwindow'. | 8701 | respective modifier, or nil to appear as the `rwindow' key. |
| 8683 | Any other value will cause the key to be ignored. */); | 8702 | Any other value will cause the key to be ignored. */); |
| 8684 | Vw32_rwindow_modifier = Qnil; | 8703 | Vw32_rwindow_modifier = Qnil; |
| 8685 | 8704 | ||
| @@ -8687,7 +8706,7 @@ Any other value will cause the key to be ignored. */); | |||
| 8687 | &Vw32_apps_modifier, | 8706 | &Vw32_apps_modifier, |
| 8688 | doc: /* Modifier to use for the \"Apps\" key. | 8707 | doc: /* Modifier to use for the \"Apps\" key. |
| 8689 | The value can be hyper, super, meta, alt, control or shift for the | 8708 | The value can be hyper, super, meta, alt, control or shift for the |
| 8690 | respective modifier, or nil to appear as the key `apps'. | 8709 | respective modifier, or nil to appear as the `apps' key. |
| 8691 | Any other value will cause the key to be ignored. */); | 8710 | Any other value will cause the key to be ignored. */); |
| 8692 | Vw32_apps_modifier = Qnil; | 8711 | Vw32_apps_modifier = Qnil; |
| 8693 | 8712 | ||
| @@ -8703,7 +8722,7 @@ Any other value will cause the key to be ignored. */); | |||
| 8703 | &w32_mouse_button_tolerance, | 8722 | &w32_mouse_button_tolerance, |
| 8704 | doc: /* Analogue of double click interval for faking middle mouse events. | 8723 | doc: /* Analogue of double click interval for faking middle mouse events. |
| 8705 | The value is the minimum time in milliseconds that must elapse between | 8724 | The value is the minimum time in milliseconds that must elapse between |
| 8706 | left/right button down events before they are considered distinct events. | 8725 | left and right button down events before they are considered distinct events. |
| 8707 | If both mouse buttons are depressed within this interval, a middle mouse | 8726 | If both mouse buttons are depressed within this interval, a middle mouse |
| 8708 | button down event is generated instead. */); | 8727 | button down event is generated instead. */); |
| 8709 | w32_mouse_button_tolerance = GetDoubleClickTime () / 2; | 8728 | w32_mouse_button_tolerance = GetDoubleClickTime () / 2; |
| @@ -8718,7 +8737,7 @@ reported as lisp events. */); | |||
| 8718 | 8737 | ||
| 8719 | DEFVAR_BOOL ("w32-pass-extra-mouse-buttons-to-system", | 8738 | DEFVAR_BOOL ("w32-pass-extra-mouse-buttons-to-system", |
| 8720 | &w32_pass_extra_mouse_buttons_to_system, | 8739 | &w32_pass_extra_mouse_buttons_to_system, |
| 8721 | doc: /* Non-nil if the fourth and fifth mouse buttons are passed to Windows. | 8740 | doc: /* If non-nil, the fourth and fifth mouse buttons are passed to Windows. |
| 8722 | Recent versions of Windows support mice with up to five buttons. | 8741 | Recent versions of Windows support mice with up to five buttons. |
| 8723 | Since most applications don't support these extra buttons, most mouse | 8742 | Since most applications don't support these extra buttons, most mouse |
| 8724 | drivers will allow you to map them to functions at the system level. | 8743 | drivers will allow you to map them to functions at the system level. |