Mercurial > emacs
comparison lisp/subr.el @ 2634:9d0a5f376195
* subr.el (listify-key-sequence): Use a character constant to
decide which bits to flip, not an integer constant.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Mon, 03 May 1993 03:40:40 +0000 |
parents | 39ad4eda7fea |
children | a836ab73fb89 |
comparison
equal
deleted
inserted
replaced
2633:c703d66d09c2 | 2634:9d0a5f376195 |
---|---|
234 "Convert a key sequence to a list of events." | 234 "Convert a key sequence to a list of events." |
235 (if (vectorp key) | 235 (if (vectorp key) |
236 (append key nil) | 236 (append key nil) |
237 (mapcar (function (lambda (c) | 237 (mapcar (function (lambda (c) |
238 (if (> c 127) | 238 (if (> c 127) |
239 (logxor c 8388736) | 239 (logxor c ?\M-\200) |
240 c))) | 240 c))) |
241 (append key nil)))) | 241 (append key nil)))) |
242 | 242 |
243 (defsubst eventp (obj) | 243 (defsubst eventp (obj) |
244 "True if the argument is an event object." | 244 "True if the argument is an event object." |