diff options
| author | Richard M. Stallman <[email protected]> | 1993-05-27 00:06:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1993-05-27 00:06:08 +0000 |
| commit | 114137b8aa69ae69d609edc0e77dad5a67f1a72d (patch) | |
| tree | 992e47d4833a9159382c5f2b543942bddd0fc8cd /lisp/subr.el | |
| parent | 8d117719dffa050ccc45446f9caf1a1ef63bff42 (diff) | |
(listify-key-sequence): Avoid the constant ?\M-\200.
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 591493e42f..755f64dff6 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -230,13 +230,20 @@ The normal global definition of the character C-x indirects to this keymap.") ;;;; 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)))) |