diff options
| author | Gerd Moellmann | 2001-10-07 00:20:39 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-10-07 00:20:39 +0000 |
| commit | c4aeb9d84deac0ddd192ef19a1dae3026f859164 (patch) | |
| tree | c87d4e6b39861c007e5c650030d58ad8d02d1cfd /src | |
| parent | d9eb1c3d5284b6a3dc6ceba6e6bebb799ebe6fd2 (diff) | |
| download | emacs-c4aeb9d84deac0ddd192ef19a1dae3026f859164.tar.gz emacs-c4aeb9d84deac0ddd192ef19a1dae3026f859164.zip | |
(parse_modifiers, apply_modifiers): Use 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 9f1a7b38ea6..b9b825e16b3 100644 --- a/src/keyboard.c +++ b/src/keyboard.c | |||
| @@ -5618,7 +5618,7 @@ parse_modifiers (symbol) | |||
| 5618 | STRING_BYTES (XSYMBOL (symbol)->name) - end), | 5618 | STRING_BYTES (XSYMBOL (symbol)->name) - end), |
| 5619 | Qnil); | 5619 | Qnil); |
| 5620 | 5620 | ||
| 5621 | if (modifiers & ~(((EMACS_INT)1 << VALBITS) - 1)) | 5621 | if (modifiers & ~VALMASK) |
| 5622 | abort (); | 5622 | abort (); |
| 5623 | XSETFASTINT (mask, modifiers); | 5623 | XSETFASTINT (mask, modifiers); |
| 5624 | elements = Fcons (unmodified, Fcons (mask, Qnil)); | 5624 | elements = Fcons (unmodified, Fcons (mask, Qnil)); |
| @@ -5655,7 +5655,7 @@ apply_modifiers (modifiers, base) | |||
| 5655 | Lisp_Object cache, index, entry, new_symbol; | 5655 | Lisp_Object cache, index, entry, new_symbol; |
| 5656 | 5656 | ||
| 5657 | /* Mask out upper bits. We don't know where this value's been. */ | 5657 | /* Mask out upper bits. We don't know where this value's been. */ |
| 5658 | modifiers &= ((EMACS_INT)1 << VALBITS) - 1; | 5658 | modifiers &= VALMASK; |
| 5659 | 5659 | ||
| 5660 | /* The click modifier never figures into cache indices. */ | 5660 | /* The click modifier never figures into cache indices. */ |
| 5661 | cache = Fget (base, Qmodifier_cache); | 5661 | cache = Fget (base, Qmodifier_cache); |