1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/subr.el b/lisp/subr.el
index 932bf0b96c4..74c8968fc1c 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -236,7 +236,7 @@ The normal global definition of the character C-x indirects to this keymap.")
       (append key nil)
     (mapcar (function (lambda (c)
                         (if (> c 127)
-                            (logxor c 8388736)
+                            (logxor c ?\M-\200)
                           c)))
             (append key nil))))