Mercurial > emacs

diff lisp/subr.el @ 3153:4c94c9faf1af

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(listify-key-sequence): Avoid the constant ?\M-\200.
author Richard M. Stallman <rms@gnu.org>
date Thu, 27 May 1993 00:06:08 +0000
parents 3bba63e62e58
children 3176c6395ada
line wrap: on
line diff
--- 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))))