Mercurial > emacs
comparison lisp/subr.el @ 10368:d74ab0c19706
(listify-key-sequence-1): Update for change in CHAR_META.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 09 Jan 1995 09:47:15 +0000 |
| parents | b53a669d2413 |
| children | fd09d51dfd77 |
comparison
equal
deleted
inserted
replaced
| 10367:e1c7a3f0c15f | 10368:d74ab0c19706 |
|---|---|
| 314 ;; This code exists specifically to make sure that the | 314 ;; This code exists specifically to make sure that the |
| 315 ;; resulting number does not appear in the .elc file. | 315 ;; resulting number does not appear in the .elc file. |
| 316 ;; The number is negative on most machines, but not on all! | 316 ;; The number is negative on most machines, but not on all! |
| 317 (defconst listify-key-sequence-1 | 317 (defconst listify-key-sequence-1 |
| 318 (lsh 1 7)) | 318 (lsh 1 7)) |
| 319 (setq listify-key-sequence-1 (logior (lsh 1 23) listify-key-sequence-1)) | 319 (setq listify-key-sequence-1 (logior (lsh 1 27) listify-key-sequence-1)) |
| 320 | 320 |
| 321 (defun listify-key-sequence (key) | 321 (defun listify-key-sequence (key) |
| 322 "Convert a key sequence to a list of events." | 322 "Convert a key sequence to a list of events." |
| 323 (if (vectorp key) | 323 (if (vectorp key) |
| 324 (append key nil) | 324 (append key nil) |