From a3111ae4d80d4ca060d30ff9ebe6cec1c3e82e03 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Sun, 25 Jul 2004 05:45:53 +0000 Subject: [PATCH] (butlast, event-modifiers, event-basic-type): Doc fixes. --- lisp/ChangeLog | 4 ++++ lisp/subr.el | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) 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))) -- 2.39.2