From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 4 Apr 1995 22:48:16 +0000 (+0000)
Subject: (event-apply-modifier): Fix off-by-one errors.
X-Git-Tag: emacs-19.34~4657
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=90bebcb0c057179189d0feb37d2690d3549f11d1;p=emacs.git

(event-apply-modifier): Fix off-by-one errors.
---

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)