diff options
| -rw-r--r-- | src/keyboard.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index 3dadfcedb21..5b1f40403a2 100644 --- a/src/keyboard.c +++ b/src/keyboard.c | |||
| @@ -6126,7 +6126,7 @@ parse_modifiers (symbol) | |||
| 6126 | SBYTES (SYMBOL_NAME (symbol)) - end), | 6126 | SBYTES (SYMBOL_NAME (symbol)) - end), |
| 6127 | Qnil); | 6127 | Qnil); |
| 6128 | 6128 | ||
| 6129 | if (modifiers & ~VALMASK) | 6129 | if (modifiers & ~INTMASK) |
| 6130 | abort (); | 6130 | abort (); |
| 6131 | XSETFASTINT (mask, modifiers); | 6131 | XSETFASTINT (mask, modifiers); |
| 6132 | elements = Fcons (unmodified, Fcons (mask, Qnil)); | 6132 | elements = Fcons (unmodified, Fcons (mask, Qnil)); |
| @@ -6163,7 +6163,7 @@ apply_modifiers (modifiers, base) | |||
| 6163 | Lisp_Object cache, index, entry, new_symbol; | 6163 | Lisp_Object cache, index, entry, new_symbol; |
| 6164 | 6164 | ||
| 6165 | /* Mask out upper bits. We don't know where this value's been. */ | 6165 | /* Mask out upper bits. We don't know where this value's been. */ |
| 6166 | modifiers &= VALMASK; | 6166 | modifiers &= INTMASK; |
| 6167 | 6167 | ||
| 6168 | /* The click modifier never figures into cache indices. */ | 6168 | /* The click modifier never figures into cache indices. */ |
| 6169 | cache = Fget (base, Qmodifier_cache); | 6169 | cache = Fget (base, Qmodifier_cache); |