Mercurial > emacs
comparison lisp/subr.el @ 36468:80a057b7576b
(event-basic-type): Doc fix.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Thu, 01 Mar 2001 18:30:44 +0000 |
| parents | fddc05f3f926 |
| children | f023c8a482ec |
comparison
equal
deleted
inserted
replaced
| 36467:3030a4b3fa3f | 36468:80a057b7576b |
|---|---|
| 532 (setq list (cons 'alt list))) | 532 (setq list (cons 'alt list))) |
| 533 list)))) | 533 list)))) |
| 534 | 534 |
| 535 (defun event-basic-type (event) | 535 (defun event-basic-type (event) |
| 536 "Returns the basic type of the given event (all modifiers removed). | 536 "Returns the basic type of the given event (all modifiers removed). |
| 537 The value is an ASCII printing character (not upper case) or a symbol." | 537 The value is a printing character (not upper case) or a symbol." |
| 538 (if (consp event) | 538 (if (consp event) |
| 539 (setq event (car event))) | 539 (setq event (car event))) |
| 540 (if (symbolp event) | 540 (if (symbolp event) |
| 541 (car (get event 'event-symbol-elements)) | 541 (car (get event 'event-symbol-elements)) |
| 542 (let ((base (logand event (1- (lsh 1 18))))) | 542 (let ((base (logand event (1- (lsh 1 18))))) |