mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-06 15:41:27 -08:00
Code Issues Projects Releases Wiki Activity

(event-basic-type): New function.

Browse source
This commit is contained in:
Richard M. Stallman 1993-03-08 00:07:53 +00:00
parent 1a7c673b85
commit d63de416be
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/subr.el
View file

@ -244,6 +244,14 @@ See also the function `event-modifier-bits'."
(setq list (cons 'alt list)))
list))))
(defun event-basic-type (event)
"Returns the basic type of the given event (all modifiers removed).
The value is an ASCII printing character (not upper case) or a symbol."
(if (symbolp event)
(car (get event 'event-symbol-elements))
(let ((base (logand event (1- (lsh 1 18)))))
(downcase (if (< base 32) (logior base 64) base)))))
(defmacro save-match-data (&rest body)
"Execute the BODY forms, restoring the global value of the match data."
(let ((original (make-symbol "match-data")))