/[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.307.2.17 by miles, Sat Jul 17 02:51:55 2004 UTC revision 1.307.2.18 by miles, Sat Sep 4 09:18:38 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 647  The normal global definition of the char Line 647  The normal global definition of the char
647             (get (car obj) 'event-symbol-elements))))             (get (car obj) 'event-symbol-elements))))
648    
649  (defun event-modifiers (event)  (defun event-modifiers (event)
650    "Returns a list of symbols representing the modifier keys in event EVENT.    "Return a list of symbols representing the modifier keys in event EVENT.
651  The elements of the list may include `meta', `control',  The elements of the list may include `meta', `control',
652  `shift', `hyper', `super', `alt', `click', `double', `triple', `drag',  `shift', `hyper', `super', `alt', `click', `double', `triple', `drag',
653  and `down'."  and `down'."
# Line 676  and `down'." Line 676  and `down'."
676          list))))          list))))
677    
678  (defun event-basic-type (event)  (defun event-basic-type (event)
679    "Returns the basic type of the given event (all modifiers removed).    "Return the basic type of the given event (all modifiers removed).
680  The value is a printing character (not upper case) or a symbol."  The value is a printing character (not upper case) or a symbol."
681    (if (consp event)    (if (consp event)
682        (setq event (car event)))        (setq event (car event)))

Legend:
Removed from v.1.307.2.17  
changed lines
  Added in v.1.307.2.18

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