diff options
| author | Karl Heuer | 1995-04-04 22:48:16 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-04-04 22:48:16 +0000 |
| commit | 90bebcb0c057179189d0feb37d2690d3549f11d1 (patch) | |
| tree | 15fafc252bdf28d0ca3fe62f8389e09603dd0d56 /lisp | |
| parent | 5c579a75294bceca1bb57ba53c6792d87f9557f3 (diff) | |
| download | emacs-90bebcb0c057179189d0feb37d2690d3549f11d1.tar.gz emacs-90bebcb0c057179189d0feb37d2690d3549f11d1.zip | |
(event-apply-modifier): Fix off-by-one errors.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/simple.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 0a4bb2a4248..256a39eb220 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -2835,11 +2835,11 @@ LSHIFTBY is the numeric value of this modifier, in keyboard events. | |||
| 2835 | PREFIX is the string that represents this modifier in an event type symbol." | 2835 | PREFIX is the string that represents this modifier in an event type symbol." |
| 2836 | (if (numberp event) | 2836 | (if (numberp event) |
| 2837 | (cond ((eq symbol 'control) | 2837 | (cond ((eq symbol 'control) |
| 2838 | (if (and (< (downcase event) ?z) | 2838 | (if (and (<= (downcase event) ?z) |
| 2839 | (> (downcase event) ?a)) | 2839 | (>= (downcase event) ?a)) |
| 2840 | (- (downcase event) ?a -1) | 2840 | (- (downcase event) ?a -1) |
| 2841 | (if (and (< (downcase event) ?Z) | 2841 | (if (and (<= (downcase event) ?Z) |
| 2842 | (> (downcase event) ?A)) | 2842 | (>= (downcase event) ?A)) |
| 2843 | (- (downcase event) ?A -1) | 2843 | (- (downcase event) ?A -1) |
| 2844 | (logior (lsh 1 lshiftby) event)))) | 2844 | (logior (lsh 1 lshiftby) event)))) |
| 2845 | ((eq symbol 'shift) | 2845 | ((eq symbol 'shift) |