/[emacs]/emacs/lisp/subr.el
ViewVC logotype

Diff of /emacs/lisp/subr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.401 by rms, Sat Jul 31 03:39:49 2004 UTC revision 1.402 by teirllm, Sat Jul 31 15:45:30 2004 UTC
# Line 644  The normal global definition of the char Line 644  The normal global definition of the char
644    "Return a list of symbols representing the modifier keys in event EVENT.    "Return a list of symbols representing the modifier keys in event EVENT.
645  The elements of the list may include `meta', `control',  The elements of the list may include `meta', `control',
646  `shift', `hyper', `super', `alt', `click', `double', `triple', `drag',  `shift', `hyper', `super', `alt', `click', `double', `triple', `drag',
647  and `down'."  and `down'.
648    EVENT may be an event or an event type.  If EVENT is a symbol
649    that has never been used in an event that has been read as input
650    in the current Emacs session, then this function can return nil,
651    even when EVENT actually has modifiers."
652    (let ((type event))    (let ((type event))
653      (if (listp type)      (if (listp type)
654          (setq type (car type)))          (setq type (car type)))
# Line 671  and `down'." Line 675  and `down'."
675    
676  (defun event-basic-type (event)  (defun event-basic-type (event)
677    "Return the basic type of the given event (all modifiers removed).    "Return the basic type of the given event (all modifiers removed).
678  The value is a printing character (not upper case) or a symbol."  The value is a printing character (not upper case) or a symbol.
679    EVENT may be an event or an event type.  If EVENT is a symbol
680    that has never been used in an event that has been read as input
681    in the current Emacs session, then this function may return nil."
682    (if (consp event)    (if (consp event)
683        (setq event (car event)))        (setq event (car event)))
684    (if (symbolp event)    (if (symbolp event)

Legend:
Removed from v.1.401  
changed lines
  Added in v.1.402

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26