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.

2633:c703d66d09c2

  "Convert a key sequence to a list of events."
  (if (vectorp key)
      (append key nil)
    (mapcar (function (lambda (c)
			(if (> c 127)
			    (logxor c 8388736)
			  c)))
	    (append key nil))))

(defsubst eventp (obj)
  "True if the argument is an event object."

2634:9d0a5f376195

  "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)
			  c)))
	    (append key nil))))

(defsubst eventp (obj)
  "True if the argument is an event object."