Commit 114137b8 authored by Richard M. Stallman's avatar Richard M. Stallman

(listify-key-sequence): Avoid the constant ?\M-\200.

parent 8d117719
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment