From a3111ae4d80d4ca060d30ff9ebe6cec1c3e82e03 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Sun, 25 Jul 2004 05:45:53 +0000 Subject: (butlast, event-modifiers, event-basic-type): Doc fixes. --- lisp/ChangeLog | 4 ++++ lisp/subr.el | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) (limited to 'lisp') diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2b9ee25d96..65648fbf3c 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 9dd1e41521..1e30a127f7 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))) -- cgit v1.2.3