From 90bebcb0c057179189d0feb37d2690d3549f11d1 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 4 Apr 1995 22:48:16 +0000 Subject: [PATCH] (event-apply-modifier): Fix off-by-one errors. --- lisp/simple.el | 8 ++++---- 1 file 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. 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) -- 2.39.5