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))))) |