# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738461168 0
# Node ID 4c94c9faf1af216fa095f6f00f3ffdabe28e0350
# Parent  db5ef3863442ee870f562892b02d64ccb46ffeb8
(listify-key-sequence): Avoid the constant ?\M-\200.

diff -r db5ef3863442 -r 4c94c9faf1af lisp/subr.el
--- a/lisp/subr.el	Wed May 26 23:53:41 1993 +0000
+++ b/lisp/subr.el	Thu May 27 00:06:08 1993 +0000
@@ -230,13 +230,20 @@
 
 ;;;; Event manipulation functions.
 
+;; This code exists specifically to make sure that the
+;; resulting number does not appear in the .elc file.
+;; The number is negative on most machines, but not on all!
+(defconst listify-key-sequence-1
+   (lsh 1 7))
+(setq listify-key-sequence-1 (logior (lsh 1 23) listify-key-sequence-1))
+
 (defun listify-key-sequence (key)
   "Convert a key sequence to a list of events."
   (if (vectorp key)
       (append key nil)
     (mapcar (function (lambda (c)
 			(if (> c 127)
-			    (logxor c ?\M-\200)
+			    (logxor c listify-key-sequence-1)
 			  c)))
 	    (append key nil))))