Mercurial > emacs
changeset 11201:f6caea9275af
(event-apply-modifier): Fix off-by-one errors.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 04 Apr 1995 22:48:16 +0000 |
| parents | dd83a62facea |
| children | 577f71dad5c3 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Tue Apr 04 21:11:29 1995 +0000 +++ b/lisp/simple.el Tue Apr 04 22:48:16 1995 +0000 @@ -2835,11 +2835,11 @@ PREFIX is the string that represents this modifier in an event type symbol." (if (numberp event) (cond ((eq symbol 'control) - (if (and (< (downcase event) ?z) - (> (downcase event) ?a)) + (if (and (<= (downcase event) ?z) + (>= (downcase event) ?a)) (- (downcase event) ?a -1) - (if (and (< (downcase event) ?Z) - (> (downcase event) ?A)) + (if (and (<= (downcase event) ?Z) + (>= (downcase event) ?A)) (- (downcase event) ?A -1) (logior (lsh 1 lshiftby) event)))) ((eq symbol 'shift)