diff options
| author | Stefan Monnier | 2003-11-17 23:29:40 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2003-11-17 23:29:40 +0000 |
| commit | e22216b8a5c42df9f0b449b2c4c6907ec00662d7 (patch) | |
| tree | bb7f5447ee1055b409224de23bbce67e783e4f45 /src | |
| parent | 7ad435540618ebfe42e1e3361065ba5a77077a4d (diff) | |
| download | emacs-e22216b8a5c42df9f0b449b2c4c6907ec00662d7.tar.gz emacs-e22216b8a5c42df9f0b449b2c4c6907ec00662d7.zip | |
(parse_modifiers, apply_modifiers): Use INTMASK instead of VALMASK.
Diffstat (limited to 'src')
| -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); |