/[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.360.2.3 by miles, Sat Jul 17 02:46:46 2004 UTC revision 1.360.2.4 by miles, Wed Jul 28 07:05:50 2004 UTC
# Line 198  If N is bigger than the length of LIST, Line 198  If N is bigger than the length of LIST,
198      list))      list))
199    
200  (defun butlast (list &optional n)  (defun butlast (list &optional n)
201    "Returns a copy of LIST with the last N elements removed."    "Return a copy of LIST with the last N elements removed."
202    (if (and n (<= n 0)) list    (if (and n (<= n 0)) list
203      (nbutlast (copy-sequence list) n)))      (nbutlast (copy-sequence list) n)))
204    
# Line 641  The normal global definition of the char Line 641  The normal global definition of the char
641             (get (car obj) 'event-symbol-elements))))             (get (car obj) 'event-symbol-elements))))
642    
643  (defun event-modifiers (event)  (defun event-modifiers (event)
644    "Returns 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'."
# Line 670  and `down'." Line 670  and `down'."
670          list))))          list))))
671    
672  (defun event-basic-type (event)  (defun event-basic-type (event)
673    "Returns the basic type of the given event (all modifiers removed).    "Return the basic type of the given event (all modifiers removed).
674  The value is a printing character (not upper case) or a symbol."  The value is a printing character (not upper case) or a symbol."
675    (if (consp event)    (if (consp event)
676        (setq event (car event)))        (setq event (car event)))

Legend:
Removed from v.1.360.2.3  
changed lines
  Added in v.1.360.2.4

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