mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1993-05-27 00:06:08 +00:00
parent 8d117719df
commit 114137b8aa
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/subr.el
View file

@ -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))))