1 files changed, 3 insertions, 3 deletions

diff --git a/lisp/simple.el b/lisp/simple.el
index 6040d48a991..0ccf2f1d22e 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -8348,16 +8348,16 @@ PREFIX is the string that represents this modifier in an event type symbol."
       (cond ((eq symbol 'control)
              (if (<= 64 (upcase event) 95)
                  (- (upcase event) 64)
-               (logior (lsh 1 lshiftby) event)))
+               (logior (ash 1 lshiftby) event)))
             ((eq symbol 'shift)
              ;; FIXME: Should we also apply this "upcase" behavior of shift
              ;; to non-ascii letters?
              (if (and (<= (downcase event) ?z)
                       (>= (downcase event) ?a))
                  (upcase event)
-               (logior (lsh 1 lshiftby) event)))
+               (logior (ash 1 lshiftby) event)))
             (t
-             (logior (lsh 1 lshiftby) event)))
+             (logior (ash 1 lshiftby) event)))
     (if (memq symbol (event-modifiers event))
         event
       (let ((event-type (if (symbolp event) event (car event))))