From: John Paul Wallington Date: Sun, 25 Jul 2004 05:45:53 +0000 (+0000) Subject: (butlast, event-modifiers, event-basic-type): Doc fixes. X-Git-Tag: ttn-vms-21-2-B4~5393 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a3111ae4d80d4ca060d30ff9ebe6cec1c3e82e03;p=emacs.git (butlast, event-modifiers, event-basic-type): Doc fixes. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2b9ee25d96e..65648fbf3cb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2004-07-25 John Paul Wallington + + * subr.el (butlast, event-modifiers, event-basic-type): Doc fixes. + 2004-07-24 Luc Teirlinck * term/tty-colors.el (tty-color-approximate): Doc fix. diff --git a/lisp/subr.el b/lisp/subr.el index 9dd1e415212..1e30a127f71 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -198,7 +198,7 @@ If N is bigger than the length of LIST, return LIST." list)) (defun butlast (list &optional n) - "Returns a copy of LIST with the last N elements removed." + "Return a copy of LIST with the last N elements removed." (if (and n (<= n 0)) list (nbutlast (copy-sequence list) n))) @@ -641,7 +641,7 @@ The normal global definition of the character C-x indirects to this keymap.") (get (car obj) 'event-symbol-elements)))) (defun event-modifiers (event) - "Returns a list of symbols representing the modifier keys in event EVENT. + "Return a list of symbols representing the modifier keys in event EVENT. The elements of the list may include `meta', `control', `shift', `hyper', `super', `alt', `click', `double', `triple', `drag', and `down'." @@ -670,7 +670,7 @@ and `down'." list)))) (defun event-basic-type (event) - "Returns the basic type of the given event (all modifiers removed). + "Return the basic type of the given event (all modifiers removed). The value is a printing character (not upper case) or a symbol." (if (consp event) (setq event (car event)))