Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
7d081355
Commit
7d081355
authored
Feb 17, 1999
by
Andrew Innes
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Vw32_quit_key): New variable.
(post_character_message): Use it. (syms_of_w32fns): DEFVAR it.
parent
a1e24774
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
1 deletion
+10
-1
src/w32fns.c
src/w32fns.c
+10
-1
No files found.
src/w32fns.c
View file @
7d081355
...
...
@@ -63,6 +63,9 @@ Lisp_Object Vw32_pass_alt_to_system;
to alt_modifier. */
Lisp_Object Vw32_alt_is_meta;
/* If non-zero, the windows virtual key code for an alternative quit key. */
Lisp_Object Vw32_quit_key;
/* Non nil if left window key events are passed on to Windows (this only
affects whether "tapping" the key opens the Start menu). */
Lisp_Object Vw32_pass_lwindow_to_system;
...
...
@@ -3619,7 +3622,9 @@ post_character_message (hwnd, msg, wParam, lParam, modifiers)
int c = wParam;
if (isalpha (c) && wmsg.dwModifiers == ctrl_modifier)
c = make_ctrl_char (c) & 0377;
if (c == quit_char)
if (c == quit_char
|| (wmsg.dwModifiers == 0 &&
XFASTINT (Vw32_quit_key) && wParam == XFASTINT (Vw32_quit_key)))
{
Vquit_flag = Qt;
...
...
@@ -7224,6 +7229,10 @@ open the System menu. When nil, Emacs silently swallows alt key events.");
When nil, Emacs will translate the alt key to the Alt modifier, and not Meta.");
Vw32_alt_is_meta = Qt;
DEFVAR_INT ("w32-quit-key", &Vw32_quit_key,
"If non-zero, the virtual key code for an alternative quit key.");
XSETINT (Vw32_quit_key, 0);
DEFVAR_LISP ("w32-pass-lwindow-to-system",
&Vw32_pass_lwindow_to_system,
"Non-nil if the left \"Windows\" key is passed on to Windows.\n\
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment